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AVERTISSEMENT 


Si vous voulez utiliser correctement les programmes de ce livre, 
lisez attentivement les conseils suivants : 


Avant de taper un programme, vous devez initialiser Amstrad 
en appuyant simultanément sur les touches [SHIFT], [CTRL] et 
[ESC]. 

Effectuez la même opération avant de charger un programme à 
partir du datacorder. 


Pour gagner en rapidité d'exécution certaines instructions NEXT 
ne sont pas suivies d'une variable (gain de 10 à 20 %). 


Si vous n'obtenez pas les mêmes résultats que sur les exemples, 
vérifiez bien toutes les lignes et surtout celles contenant des 
DATAs. 


Dès que les programmes sont entrés dans votre AMSTRAD, sau- 
vez-les sur le datacorder. Pour les programmes très longs, il est 
vivement conseillé d'effectuer une première sauvegarde au mi- 
lieu de leur frappe. N'attendez pas qu'ils soient entièrement 
entrés et testés. une coupure de courant est si vite arrivée |! 


Quand vous entrez des chiffres décimaux, assurez-vous que vous 
tapez un point et non une virgule entre deux chiffres. 


Assurez-vous que vous êtes en majuscules dès la mise en route, 
en appuyant sur CAPS LOCK. 


L'auteur remercie la société VISMO pour son aide technique. 
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THEME 1 
LES FINANCES 
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COMPTE BANCAIRE 


Plus qu'une simple gestion de compte bancaire, ce programme 
vous donne l'occasion de connaître vos dépenses en nourriture, 
loyer, Vêtements, essence, etc., mais aussi le total des dépenses et 
des rentrées de l’année. 


Si vous l'utilisez pour la première fois, AMSTRAD vous demande 
le montant du compte actuellement ou au 1°" janvier si vous créez 
une nouvelle année. Puis un menu de six options s'affiche. 


1 - SAISIE : vous devez entrer tous les mouvements en donnant 
des valeurs négatives aux sommes retirées (chèques, vire- 
ments, carte de crédit). La date, le numéro et la description 
sont à titre indicatif, mais il est très intéressant de donner des 
noms par groupe pour faciliter les recherches. Par exemple si 
vous donnez les descriptions “ESSENCE VOITURE”, "VI- 
DANGE VOITURE”, “CREDIT VOITURE”, vous pourrez obtenir 
le total des dépenses pour votre voiture mais aussi les dé- 
penses uniquement d'essence ou de vidanges ainsi que la 
somme de tous les crédits (pas uniquement celui de la voi- 
ture). 


2 - MODIFICATION : si vous avez fait une erreur dans la saisie, il 
est toujours possible de la modifier en utilisant cette option. 
Vous devez donner le numéro de l'opération (si vous l'avez 
oublié utilisez les options 4 et 5 puis le numéro de l'élément à 
modifier). Quand vous ne désirez plus effectuer de modifica- 
tion, tapez “O" à la question “Numéro de l'opération”. 


3 - SUPPRESSION : supprime une des opérations déjà entrées. 
Le programme demande confirmation avant la suppression 
(répondre par “O" ou “N"). Comme pour la modification il faut 
répondre “Q" pour revenir au menu. 


4 - RECHERCHE : le programme recherche dans tout le fichier le 
nom, le numéro ou la date que vous lui donnez. Par exemple 
le nom “CREDIT” affiche et calcule le total des sommes 
concernant des crédits (crédits logement, voiture, etc.). 


5 — LISTING : cette opération permet de lister sur l'écran la totalité 
des mouvements effectués sur le compte. Le listing s'arrête 
automatiquement en bas de page. Vous devez appuyer sur 
n'importe quelle touche pour continuer. 


6 - SAUVEGARDE : dès que vous n'avez plus besoin du program- 
me, cette option sauve sur la cassette la totalité du fichier. 
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19 REM COMPTE BANCAIRE OÙ POSTAL 

20 REM -------------------------------- 

30 DIM D$(4,588) 

40 LS(1)="MONTANT":L$(2)="DATE":LS$(3)="NUMERO OÙ R 
EPERE":L$(4)="DESCRIPTION" 

50 L(2)=8:L(3)=7:L(4)=7 

60 MODE 1:INK 8,8:INK 1,15:BORDER 8 

70 INPUT'"PREMIERE UTILISATION (O/N)";RS 

88 IF R$<>"O" THEN 110 

98 CLS:INPUT"MONTANT INITIAL DU COMPTE ";M 

1880 GOTO 368 

118 CLS:PRINT"METTEZ LE DATACORDER EN LECTURE" 

120 OPENIN "!'COMPTE" 

138 INPUT#9,N,C,D,M 

140 FOR I=1 TO N 

156 FOR J=1 TO 4 

168 INPUT#9,D$(J,1I) 

178 NEXT J,I 

188 CLOSEIN 

289 REM ----------------------------- 

298 REM MENU 

308 CLS 

310 PRINT*SOLDE :"“;M+C-D:PRINT"CREDIT:";C:PRINT"DE 
BIT :";0 

320 PRINT"NB D'OPERATIONS:";N:PRINT:PRINT 

330 PRINT"1 SAISIE" 

340 PRINT"2 MODIFICATION" 

350 PRINT"3 SUPPRESSION" 

3686 PRINT"4 RECHERCHE" 

370 PRINT"5 LISTING" 

380 PRINT"6 SAUVEGARDE" 

398 PRINT:PRINT"VOTRE CHOIX ?"; 

408 RS$=INKEYS:IF R$="" THEN 400 

418 R=VAL(RS):IF R<1 OR R>6 THEN 408 

420 ON R GOTO 580,1800,1208,/708,1500,1700 

480 REM ------------------------------- 

498 REM SAISIE 

508 CLS:PRINT"SAISIE D'UNE OPERATION":PRINT 

510 IF N=500 THEN PRINT"'FICHIER PLEIN"; :LINE INPUT 
R$:GOTO 308 

528 N=N+1 

530 FOR I=1 TO 4 

5408 PRINT L$(I);":";:INPUT"",DS(I,N) 

958 IF I=1 AND VAL(DS$(1,N))=8 THEN N=N-1:GOTO 300 
568 IF I=-2 AND LEN(D$(2,N))<>8 THEN 540 

570 NEXT I 

5808 IF VAL(DS(1, 
LSE C=C+VAL(DS(1 
590 GOTO 588 
689 REM ------------------------------- 

698 REM RECHERCHE 

708 CLS:F=0:7T-=0 

7168 PRINT"RECHERCHE PAR :"* 

720 FOR I=1 TO 4:PRINT I;L$(I):NEXT 

730 PRINT:PRINT"QUEL TYPE DE DONNEE ?*:PRINT 
748 R$=INKEYS:IF R$="" THEN 740 

750 R=VAL(RS):IF R<1 OR R>4 THEN 308 

768 PRINT LS(R);":";:INPUT "",DS$:PRINT 

778 FOR I=1 TO N 


N @ THEN D=D+ABS(VAL(DS$S(1,N))) E 
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780 IF INSTR(DS(R,I),D$)=@ THEN 840 
790 F=1:PRINT USING"### ";l; 
800 FOR J=1 TO 4 
810 IF J=1 THEN PRINT USING"###4##4.## "; VAL(DS(J,I 
)); ELSE PRINT LEFTS(DS(J,1)+" " L(J));" "; 
820 NEXT J:PRINT 
838 T=T+VAL(DS(1,1)) 
840 NEXT T-PRINT®. 2e es ' 
850 IF F=0 THEN PRINT"JE N'AI RIEN TROUVE" ELSE PR 
INT USING" =####4#4#4#.#4";T 
860 IF INKEYS="" THEN 868 ELSE 700 
DOM REM = ie eo croco 
998 REM MODIFICATION 
1900 CLS:PRINT"MODIFICATION": PRINT 
1918 INPUT"'NUMERO DE L'OPERATION"; NU 
1020 IF NU<1 OR NU>N THEN 300 
1930 FOR I=1 TO 4 
1948 PRINT I;LS$(I);":";DS(I, NU) 
1858 NEXT I 
1068 PRINT: INPUT"MODIFICATION DU";R 
1070 IF R<1 OR R>4 THEN 300 
1080 IF R=1 THEN A=VAL(DS(1,NU)) 
1098 PRINT LS(R);:INPUT DS(R, NU) 
1100 IF R=1 AND VAL(DS(1,NU))=0 
1110 IF R<>1 THEN 1000 
1120 IF A<@ THEN D=D+A ELSE C= 
1138 IF VAL(DS(1,NU))<@ THEN D 
E C=C+VAL(D$(1,NU)) 
1148 GOTO 1668 
1100-REM.---ees-das-ensoncéenbenseuess 
1198 REM SUPPRESSION 
1208 CLS:PRINT"SUPPRESSION": PRINT 
1210 INPUT"NUMERO DE L'OPERATION"; NU 
1220 IF NU<i OR NU>N THEN 300 
1230 PRINT 
1248 FOR I=1 TO 4 
1250 PRINT I;LS(I);":";D$(I,NU) 
1260 NEXT I:PRINT 
1270 INPUT"VOUS ETES SUR DE SUPPRIMER 
CETTE OPERATION";R$ 
1280 IF R$S<>"O" THEN 1200 
1298 A=VAL(DS(1,NU)) 
1300 IF A<ô THEN D=D+A ELSE C=C-A 
1310 N=N-1 
1328 FOR I=NU TO N 
1330 FOR J=1 TO 4 
1348 D$(J,1)=D$(J,1+1) 
1350 NEXT J,I 
1360 GOTO 1288 
TABD REÈM ---ene- pensent messes 
1490 REM LISTING 
1508 MODE 2:L(4)=40 
1510 FOR I=1 TO N 
1529 PRINT USING"### ";l; 
1530 FOR J=1 TO 4 
1540 IF J=1 THEN PRINT USING"#####4#. #4 "; VAL(DS(J, 
I)); ELSE PRINT LEFTS(D$(J,1)+" " L(J))};" "; 
1558 NEXT J:PRINT 


THEN 1090 


C-A 
=D-VAL(DS$(1,NU)) ELS 
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1568 IF I/20=INT(I/20) THEN PRINT:PRINT"APPUYEZ SU 
R UNE TOUCHE POUR LA SUITE";:WHILE INKEYS$="":WEND: 
CLS 

1570 NEXT I 

1580 PRINT: PRINT" APPUYEZ SUR UNE TOUCHE POUR L 
E MENU"; 

1590 IF INKEYS="" THEN 1598 ELSE MODE 1:L(4)=7: GOT 
0 360 

JOS0 REM ae on  re e ess ue 

1698 REM SAUVEGARDE 

1700 CLS:PRINT"APPUYEZ SUR ENTER QUAND LE DATACORD 
ER EST PRET POUR L'ENREGISTREMENT" 

1710 LINE INPUT R$ 

1720 OPENOUT “! COMPTE" 

17306 PRINT#9,N,C,D,M 

1748 FOR I=1 TO N 

17508 FOR J=1 TO 4 

1768 PRINT#9,D5(J,1I) 

1778 NEXT J,I 

1788 CLOSEOUT 

1790 CLS:PRINT"A LA PROCHAINE OPERATION !" 

1808 END 





QUEL TYPE DE DONNEE ? 
DESCRIPTION :UOITURE 


-435:67 
-187.00 


= -1065.67 
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LE PROGRAMME 


Lignes 39 à 189 : initialisation 


On place dans le tableau L$() les libellés des quatre données né- 
cessaires à l'exploitation du fichier. 


Si ce n’est pas la première utilisation, on lit sur la cassette le fichier 
déjà créé antérieurement. 

Lignes 399 à 429 : menu 

Ces lignes affichent le solde du compte, le total des crédits et des 
débits, puis ventilent sur le reste du programme suivant le choix 
de l'utilisateur. 

Lignes 599 à 599 : saisie d'une opération 


On saisit par une boucle FOR/NEXT les quatre données du fichier 
et l'on met à jour le total crédit ou débit selon le cas (ligne 580). 


Si aucun montant n'a été entré, on revient au menu (ligne 559). 


Lignes 799 à 869 : recherche 


Le programme demande d'abord sur quel type de donnée on dé- 
sire effectuer la recherche, puis la donnée elle-même (variable D$). 


Les lignes 779 à 849 parcourent par une boucle FOR/NEXT l'inté- 
gralité du fichier, et affichent les enregistrements où l'on a trouvé 
la chaîne D$. La variable T totalise les montants. 


Lignes 1909 à 1149 : modification 

Ces lignes modifient l'enregistrement choisi par l'utilisateur (varia- 
ble NU). Si c'est le montant qui doit être changé, les lignes 1120 et 
1139 mettent à jour le total des crédits et des débits. 

Lignes 1299 à 1369 : suppression 

On supprime du fichier l'enregistrement choisi par l'utilisateur (va- 


riable NU). Après l'avoir affiché, le programme demande confir- 
mation. Les lignes 1329 à 1359 décalent le tableau vers le bas. 





AMSTRAD EN FAMILLE 


16 


Lignes 1599 à 1599 : listing 


On affiche par une boucle FOR/NEXT l'intégralité du fichier. Le 
programme est stoppé par la ligne 1569 dès que l'écran est plein. 


Lignes 1709 à 1809 : sauvegarde 


Ces lignes sauvent sur cassette le fichier dès qu’une touche a été 


appuyée. 


LISTE DES VARIABLES : 


A 

C 

D 
D$ 
D$(,) 
F 

| 

J 
L() 
L$() 
M 


NU 
RS 


ancienne valeur du montant pour la modification 
total des crédits 

total des débits 

donnée à rechercher 

tableau des données du fichier 

drapeau. si F-Q, aucun enregistrement n'a été trouvé 
indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

longueur maximum d'affichage de chaque donnée 
libellés des données 

montant initial du compte 

nombre d'opérations dans le fichier 

numéro d'enregistrement choisi par l'utilisateur 
choix de l'utilisateur 

valeur numérique de R$ 

total des montants dans la recherche 
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PLACEMENT CHEZ L'ECUREUIL 


Que rapportent les économies que vous avez placées à la Caisse 
d'Epargne ? Laissez le soin à votre AMSTRAD d'en effectuer les 
calculs. 


Le programme demande chaque quinzaine le total des dépôts et 
des retraits que vous avez effectués sur votre livret. En effet, les 
intérêts de la Caisse d'Epargne sont calculés tous les quinze jours 
(mais déposés sur le compte seulement le 31 décembre). Tous les 
retraits comptent à partir du premier jour de la quinzaine, les dé- 
pôts le premier jour de la quinzaine suivante. |l est préférable de se 
méfier pour les chèques “Reçu sous réserve d'encaissement” car 
ils prennent plusieurs jours avant d'être réellement déposés sur le 
livret. Un chèque déposé le 14 est encaissé après le 15, il comptera 
donc seulement dans les intérêts du mois suivant. 


En plus des dépôts et des retraits, le programme demande aussi le 
taux d'intérêt, celui-ci pouvant être modifié d'une quinzaine à l’autre 
{aux bons soins de monsieur le ministre des Finances). 


Ces formalités étant remplies, AMSTRAD affiche par quinzaine le 
capital, les dépôts, les retraits, le capital sur lequel sont calculés les 
intérêts et les intérêts eux-mêmes. 












DATE :CAPIT:DEPOT:RETR.:1 SUR:INTERETS 


















15/ 1: 9057: 9: 1009: 99057: 284.53 
31/ 1: 9857: g : 8: 9857: 24.53 
157 6: 6557: 9: 2500: 6557: 17.76 
31/ 8e: 5357: 9: 1809: 5357: 14.51 
15/ 3: 9818: 5461: 1006: 5357: 14.51 
31/ 3: 9818: ÿ : 9: 9818: 26.59 
15/ 4: 9818: 8 : 6: 9818: 26.59 
31/ 4: 9818: g : 8: 9818: 26.59 
15/ 5:14318: 4509: 6: 9818: 26.59 
31/ 5:13818: a : 506 :13818: 37.48 
15/ 6:14568: 1850: 506 :13818: 37.4e 
31/ 6:16868: 2300: 9 :14568: 39.46 
15/ 7:16368: 1000: 1500:16368: 44.33 
31/ 7:14868: 8: 159060:14868: 49.27 
15/ 8:13668: G: 1290:13668: 37.02 
31/ 8:11668: 6: 206060:11668: 31.66 

TOTAL INTERETS: 469.72 

(O/N)D 7? 
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19 REM PLACEMENT CHEZ L'ECUREUIL 

DO RÉM De em rm ete 

30 DIM D(24),R(24),M$(12),C(24),T(24) 

48 FOR I=1 TO 12:READ MS(I):NEXT I 

59 DATA JANVIER, FEVRIER, MARS, AVRIL, MAI, JUIN 

68 DATA JUILLET, AOÛT, SEPTEMBRE, OCTOBRE, NOVEMBRE, DE 

CEMBRE 

76 MODE 1:INK 8,8:INK 1,15:BORDER @ 

88 INPUT"PREMIERE UTILISATION (O/N)";R$ 

99 IF R$="0" THEN 208 

188 CLS:PRINT"METTEZ LE DATACORDER EN LECTURE" 

118 OPENIN *“!ECUREUIL" 

128 INPUT#9,M,C 

130 FOR I=1 TO 24 

140 INPUT4S, D(I),R(I),T(I) 

159 NEXT 

168 SE 

189 REM ------ > 22 

198 REM DONNEES DU MOIS 

200 CLS 

218 IF M<>0 THEN 238 

228 INPUT"CAPITAL AU ler JANVIER (AVEC INTERETS DE 

L'ANNEE PRECEDENTE) ";C 

230 C(8)=C 

240 FOR I=1 TO 

258 C(I)=C(I-1)- RCL)+DUL) 

260 NEXT I 

270 IF M=24 THEN 508 

280 M=M+1 

298 PRINT 

309 PRINT'CAPITAL ACTUEL:";C(M-1) 

319 PRINT"DONNEZ LES MOUVEMENTS DU :" 

320 IF M/2=INT(M/2) THEN PRINT"15 AU 31 "; ELSE PR 
INT"ler AU 14 "; 

330 PRINT MS(INT(8.5+M/2)) 

340 PRINT 

358 INPUT"DEPOT ";D(M) 

360 INPUT"RETRAIT ";R(M) 

370 INPUT"TAUX ";TS:IF TS$="" THEN T(M)=T(M-1) ELSE 
T (M): VAL(TS$)/108 

380 IF INT(C(M-1)+D(M)-R(M))<@ THEN PRINT"IMPOSSIB 
LE. CAPITAL < @":GOTO 298 

398 PRINT 

400 C(M)= C(M-1)+D(M)-R(M) 

ABOURER eee Ur oneses eee 

490 RE RESULTATS 

500 TT=0 

510 CLS:PRINT:PRINT 

520 FOR I=1 TO M 

530 IF R(L)>D(D) THEN R=R(I)-D(I) ELSE R=@ 

549 CA=C(I-1)-R 

559 T=(CA/24)«T(I) 

560 TT=TT+T 

570 IF I/2=INT(I/2) THEN PRINT"31/"; ELSE PRINT"15 
1"; 

580 PRINT USING"##"; INT(®. Hat 

590 PRINT USING": ###4#"; (D) D(T),R(I),CA; 

600 PRINT USING": ##4##.4#4"; 

618 NEXT I 
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628 
630 


###. 


648 


PRINT Een Den Len n " 
PRINT TAB(16); "TOTAL INTERETS:";:PRINT USING"# 
#4"; TT: PRINT 

LOCATE 1,1:PRINT"DATE :CAPIT:DEPOT:RETR.:1 SUR 


: INTERETS" 


650 
668 
678 


PRINT"-----; ms; m; pen. ' 
LOCATE 1,25:PRINT"FIN (O/N) ?"; 
RS=INKEYS:IF R$="" THEN 670 ELSE IF R$S="N" THE 


N 200 


688 
698 
700 
R 

710 
728 
730 
740 
758 
768 
770 
788 
798 


REN 222022 See 
REM SAUVEGARDE 

CLS:PRINT"APPUYEZ SUR ENTER QUAND LE DATACORDE 
EST PRET POUR L'ENREGISTREMENT" 

LINE INPUT R$ 

OPENOUT "!ECUREUIL" 

PRINT#9,M,C 

FOR I=1 TO 24 

PRINT#9,D(1),R(I),T(I) 

NEXT I 

CLOSEOUT 

CLS:PRINT"A LA PROCHAINE QUINZAINE !" 
END 
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LE PROGRAMME 


Lignes 39 à 169 : initialisation 


Si ce n'est pas la première utilisation, on lit sur la cassette le fichier 
déjà créé antérieurement. 


Lignes 299 à 499 : données du mois 


S'il s'agit de la première utilisation (M=Q), la ligne 220 saisit le 
capital au 1°’ janvier. Les lignes 240 à 260 placent dans le tableau 
C(} le capital du mois (capital du mois précédent — les retraits + 
les dépôts du mois). 


Si le fichier est déjà plein (M=24), la ligne 270 renvoie aux résultats 
sans passer par la saisie. 


Le programme demande les dépôts, les retraits et le taux d'intérêts 


de la quinzaine. Si vous ne donnez aucune valeur pour ce dernier, 
on prend automatiquement le taux du mois précédent (ligne 370). 


Lignes 509 à 679 : résultats 

Ces lignes affichent un tableau récapitulatif des dépôts et des re- 
traits et calculent le capital et les intérêts. La ligne 630 donne le 
total des intérêts annuels. 


La ligne 679 renvoie à la saisie si l’on désire entrer les données de 
la quinzaine suivante avant la sauvegarde. 


Lignes 709 à 799 : sauvegarde 


On sauve sur cassette le fichier dès qu'une touche a été appuyée. 
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LISTE DES VARIABLES : 


D() liste des dépôts 
capital au 1°" janvier 
C() capital par quinzaine 
CA capital pour le calcul des intérêts 
| indice de boucle FOR/NEXT 
M numéro de la quinzaine en cours 
M$() noms des 12 mois 
R() liste des retraits 
RS réponse de l'utilisateur 
T intérêts de la quinzaine 
T() liste des taux par quinzaine 
TT total des intérêts 
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BUDGET FAMILIAL 


À partir du total de vos dépenses et des dépenses par poste que 
vous lui donnez, AMSTRAD vous indiquera le pourcentage du bud- 
get que vous consacrez aux impôts, au loyer, à la voiture, aux va- 
cances, aux vêtements, à la nourriture, aux fêtes, aux loisirs et aux 
assurances. 


Au dernier montant entré, l'ordinateur dessine l'histogramme de 
votre budget familial en identifiant chaque rectangle. Les pourcen- 
tages sont rappelés à droite de l'écran. 


Au cas où vous voudriez modifier une somme, vous devez taper 
sur ENTER. Le questionnaire qui apparaît n’est vide qu'en appa- 
rence car il contient toujours les données précédentes. 


Il suffit de taper un nouveau montant pour les modifications éven- 
tuelles ou de passer au poste suivant en tapant simplement ENTER 
s'il n'y a rien à changer. Puis, comme dans le premier cas, l'ordi- 
nateur redessine l'histogramme corrigé. 


C'est un moyen rapide d'avoir une vue d'ensemble sur vos dé- 
penses et Vous aurez peut-être des surprises. 
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BUDGET FAMILIAL 


Lecture des 
libellés des 
datas 








Entrer total 
des dépenses 


Dépenses 
totales = @ 





Entrer dépenses 
— D{l) 
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Dessiner 
l'histogramme 





Afficher les 
dix dépenses 
et leurs °° 
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180 R 
28 R 


EM BUDGET FAMILIAL 
EM 


30 DATA IMPOTS,LOYER, VOITURE, VACANCES, VETEMENTS, NO 


URRI 


TURE 


40 DATA FETE,LOISIRS, ASSURANCES, DIVERS 
50 FOR I=1 TO 18 

68 READ N$(I) 

70 NEXT I 

SO REM---r=Es- Ses ssessessessszs 
90 REM SAISIE DES DEPENSES 


100 
110 
128 


MODE 1:INK @,8:INK 1,15:BORDER @ 
INPUT"TOTAL DES DEPENSES ";R$ 
IF VAL(RS)<>0 THEN TD=VAL(RS) 


138 IF TD=8 THEN 180 
148 MAXI=0:DT=0 

158 PRINT:PRINT: PRINT 

168 FOR I=1 TO 9 

178 PRINT NS(I); 

188 INPUT R$ 

190 IF VAL(RS)<>@ THEN D(I)=VAL(RS) 

208 IF D(I)<MAXI THEN 228 

219 MAXI=D(I) 

228 DT=DT+D(I) 

230 IF DT<=TD THEN 268 

248 PRINT"TOTAL > AUX DÉPENSES" 

250 TD=DT 

268 NEXT I 

276 D(18)=TD-DT 

280 IF D(18)>MAXI THEN MAXI=D(18) 

298 FOR I=1 TO 18 

300 P(I)=INT((D(I)/(MAXI/108)))#3 

318 NEXT I 

380 REM ---------- 

398 REM HISTOGRAMME 

408 MODE 1:PRINT"”"; TAB(25)"DEPENSES 1" 

418 PLOT 6,398:DRAW 6,58:PLOT 8,390: DRAW 8, 58 

428 PLOT 6,58:DRAW 588,58:PLOT 6,52:DRAW 580,52 
438 FOR I=1 TO 18 

440 IF P(I)=0 THEN 500 

458 FOR J=68 TO 68+P(I) STEP 2 

469 MOVE I#32-10,J:DRAW 5+1#32,J 

470 NEXT J 

480 MOVE 5+1+32,60:DRAW 18+1%32,65:DRAW 10+I32, J+ 
5 

498 MOVE I*32-106,J:DRAWR 5,5:DRAUR 15,8:DRAWR -5, - 
5 

500 LOCATE 22,1+1:PRINT USING"## ";l; 

510 PRINT NS(I):LOCATE 36,1+1:PRINT USING": ##";IN 
T(D(I)/(TD/108)) 

520 LOCATE I#2-1,23:PRINT I 

530 NEXT I 

548 IF INKEYS<>CHRS(13) THEN 548 

550 GOTO 108 
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LE PROGRAMME 
Lignes 39 à 79 : initialisation 


On place dans le tableau N$l{) les libellés des dépenses. Ces der- 
niers se trouvant placés dans les DATAs des lignes 30 et 40, il est 
possible de les modifier pour d'autres dépenses si vous n'avez pas 
de voiture ou si vous ne partez jamais en vacances. 


Lignes 199 à 319 : saisie des dépenses 


La variable MAX garde en mémoire la valeur de la plus grande 
dépense effectuée. Elle servira de référence dans l'histogramme. 


La variable DT garde la somme totale des 9 dépenses. Les dé- 
penses diverses prendront alors la différence entre le total des dé- 
penses (ce qui est réellement sorti de votre portefeuille) et la somme 
des 9 autres dépenses. 


Dans le cas où DT devient supérieur à TD, on modifie TD pour le 
réajuster ; les dépenses diverses deviennent obligatoirement nulles. 


On calcule pour chaque dépense un pourcentage pour donner une 
idée de la valeur que l'on vient de rentrer au clavier. 


Lignes 499 à 559 : histogramme 


Les lignes 409 à 539 affichent l'histogramme et les pourcentages 


de chaque dépense (lignes 500 et 510). L'ordonnée des dépenses 
est affichée à la ligne 520. 


Dès qu'une touche est enfoncée, on revient à la ligne 100 pour une 
nouvelle saisie ou pour la modification des dernières données. 


LISTE DES VARIABLES : 

D(| tableau des dépenses 

DT dépenses totales 

I indice de boucle FOR/NEXT 

J indice de boucle FOR/NEXT 

MAX valeur maximale dans l'histogramme 
N$() libellé des dépenses 

P() pourcentage de chaque dépense 

R$ dernière dépense tapée au clavier 

TD total des dépenses 
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COUT ANNUEL DE VOTRE 
VOITURE 


Que coûte votre voiture chaque année ? Quelles sommes avez-vous 
dépensées pour l'entretien et l'essence ? Quel est le prix de revient 
d'un petit kilomètre ? Autant de questions auxquelles votre AMS- 
TRAD répondra avec plaisir. 


Le programme demande tous les mois le nombre de kilomètres au 
compteur et les dépenses en essence, en entretien et en mécanique 
ainsi que les remboursements éventuels d'un crédit (entrer “Q" si 
vous n'avez pas de crédit). 


Si vous utilisez le programme pour la première fois (ou une autre 
année), il temande aussi le prix de l'assurance et de la vignette, et 
le nombre de kilomètres au compteur au 1°" janvier. 


Avec ces quelques renseignements, AMSTRAD affiche pour chaque 
mois la distance parcourue, le total des dépenses, le prix du kilo- 
mètre et en supplément gratuit le prix annuel du kilomètre. 
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COUT ANNUEL DE VOTRE VOITURE 


DEBUT 


Première 


utilisation 
? 






















Entrer le 
prix de | assurance 
de la vignette 
et le nb de km 






Lire le 
fichier sur 
cassette 














M - nb de 


mois 


Entrer 
essence 
entretien 

et credit 


Entrer le 
nb de km 
au compteur 


km 
au mois ? 
précédent 


Afficher 
toutes 
les dépenses 


Afficher le 
prix moyen 
du km 


Ecrire le 
fichier sur 
cassette 
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18 REM COUT ANNUEL DE VOTRE VOITURE 
DD LIREM are en 

38 DIM E(12),M(12),K(12),C(12), n$(12) 

48 FOR I=1 TO 12:READ MS(I):NEXT 

59 DATA DE JANVIER,DE FEVRIER, DE MARS D'AVRIL,DE M 
AI,DE JUIN 

69 DATA DE JUILLET,D'AOUT,DE SEPTEMBRE, D'OCTOBRE, D 
E NOVEMBRE,DE DECEMBRE 

76 MODE 1:INK @,8:INK 1,15:BORDER @ 

88 INPUT"PREMIERE UTILISATION (O/N)";RS$ 

99 IF R$="O" THEN 308 

108 CLS:PRINT"METTEZ LE DATACORDER EN LECTURE" 

118 OPENIN "! VOITURE" 

128 INPUT#9,V,A,K 
130 FOR I=1 TO 12 
148 INPUT#9,E(I),M(I 
158 IF M=8 AND K(1)- 
168 NEXT I 

178 CLOSEIN 

180 IF M-0 THEN M-12:K(8)=K:GOTO 508 

DB REM: === nee en sesre-mamssre 

298 REM DONNEES DU MOIS 

300 CLS 

310 IF M<>@ THEN 370 

328 INPUT"PRIX ANNUEL DE L'ASSURANCE ";A 

330 INPUT'PRIX DE LA VIGNETTE ";V 

340 INPUT"NOMBRE DE KMS AU 1ER JANVIER ";Kk 

350 M=1 

360 PRINT 

370 K(@)=Kk 

380 PRINT"ENTREZ LES DONNEES DU MOIS ";MS(M):PRINT 
396 INPUT"ESSENCE ";E(M) 

408 INPUT"ENTRETIEN/MECANIQUE ";M(M) 

418 INPUT"NB DE KILOMETRES AU COMPTEUR “;K(M) 

420 IF K(M)<K(M-1) THEN PRINT"KMS DU MOIS PRÉCEDEN 
T:";K(M-1):GOTO 418 

430 INPUT"REMBOURSEMENT CREDIT ";C(M) 

ABB REM sacs omomeepusdeeeneSu es 

499 REM RESULTATS 

500 CLS:PRINT TAB(18)"COUT DE VOTRE VOITURE":PRINT 
: PRINT 

510 PRINT'ASSURANCE:";A;" VIGNETTE:";V 

528 PRINT: PRINT 

530 PRINT'MOIS KM ESS. MECA ŒCRED. TOT. TOT/K" 
548 FOR I=1 TO 12 

550 PRINT USING"#4#";l; 

560 IF I>M THEN PRINT" 8": GOTO 618 

570 T=E(I)+M(1)+C(I1)+(A/12)+(V/12):TT=T/(K(I)-K(I- 
1)) 

586 PRINT USING"#####4";K(I)-K(I-1),E(I1),M(I),C(1) 
590 PRINT USING" ##.##";TT 

608 TE=TE+E(I):TK=K(I)-K:TM=TM+M(I):TC=TC+C(I):TA= 
TA+T 

610 NEXT I 

629 PRINT: PRINT*TOTAL/KM  ESS/F MECA/F CR/F TOT/F* 
PRINT" " 

638 PRINT ÜSING"#####4": TK. TE. TM, TC, TA 


) 
C] 
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648 PRINT:PRINT"'PRIX MOYEN DU KM:";:PRINT USING"## 
#4"; TA/TK 


658 
680 
698 
708 
R 

710 
720 
738 
748 
758 
760 
770 
788 
790 


IF INKEYS<>CHRS(13) THEN 658 
REM == use 

REM SAUVEGARDE 

CLS:PRINT"APPUYEZ SUR ENTER QUAND LE DATACORDE 
EST PRET POUR L'ENREGISTREMENT" 

LINE INPUT R$ 

OPENOUT "! VOITURE" 

PRINT#9,V,A,K 

FOR I=1 TO 12 

PRINT#9,E(I),M(I),K(I),C(I) 

NEXT I 

CLOSEOUT 

CLS:PRINT"AU MOIS PROCHAIN !" 

END 





AMSTRAD EN FAMILLE 


31 


32 


LE PROGRAMME 

Lignes 39 à 189 : initialisation 

Si ce n'est pas la première utilisation, on lit sur la cassette le fichier 
déjà créé antérieurement. 

Lignes 309 à 439 : données du mois 

Le programme demande le prix de l'essence, de l'entretien, du cré- 
dit et le nombre de kilomètres au compteur. Cette dernière donnée 
est vérifiée avec celle du mois précédent. S'il s'agit de la première 
utilisation (M-0Q), les lignes 320 à 340 saisissent le prix de l'assu- 
rance et de la vignette, et le nombre de kilomètres au 1° janvier. 
Lignes 599 à 659 : résultats 

Ces lignes affichent un tableau récapitulatif des dépenses et le prix 
moyen au kilomètre pour chaque mois et pour l’année entière. 


Lignes 709 à 799 : sauvegarde 


On sauve sur cassette le fichier dès qu'une touche a été appuyée. 


LISTE DES VARIABLES : 


A prix de l'assurance 

E() liste des dépenses d'essence 

C() liste des remboursements du crédit 

I indice de boucle FOR/NEXT 

K nombre de kilomètres au 1°" janvier 

K() liste des kilomètres au compteur 

M mois en cours 

M() liste des dépenses d'entretien et de mécanique 
M$() liste des noms des mois 

RS réponse de l'utilisateur 

T total mensuel des dépenses 

TA total annuel des dépenses 

TE total annuel des dépenses d'essence 

TC total annuel des remboursements du crédit 

TK total annuel des kilomètres parcourus 

TM total annuel des dépenses d'entretien et de mécanique 
TT prix moyen du kilomètre du mois 

V prix de la vignette 
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CALCUL D'IMPOTS 


Pour ne pas avoir de mauvaise surprise en recevant votre avis d'im- 
position, ce programme vous donnera plus de détails sur son cal- 
cul. 


Comment l'utiliser : vous devez en priorité répondre à quatre ques- 
tions. Si vous êtes marié (répondre par oui ou non), le nombre de 
personnes à charge qui ont des revenus, votre nombre de parts et 
pour finir les charges déductibles (vos achats de valeurs françaises 
par exemple). 


Puis, pour vous, votre conjoint et les personnes à charge vous de- 
vez donner le revenu imposable (ne pas déduire les 10 et 20 %) et 
le taux de la déduction supplémentaire si vous y avez droit (par 
exemple limeur de cadres de bicyclette du département de la Loire 
(20 %), brodeur de la région lyonnaise utilisant des métiers panto- 
graphes (20 %), journaliste (30 %), speakerine de la télévision fran- 
çaise (20 %), scaphandrier (10 %), mannequin d'une grande maison 
de couture parisienne (10 %), etc.). 


Le programme tient compte des mesures fiscales de l'année 84 
(minoration, majoration et décote de l'impôt). Vous serez peut-être 
amené à modifier le programme pour les années à venir. Il faut 
dans tous les cas modifier les tranches d'imposition situées à la fin 
du programme, sinon votre impôt risque d'être inférieur à la réalité. 
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CALCUL D'IMPOT 


Initialisation 

des tranches, 

planchers et 
plafonds 


Entrer nb de 

personnes à 

charge et nb 
de parts 


Entrer le 
montant 
des charges 
déductibles 





Entrer le 
revenu 
imposable 


Entrer le 
taux de 
déduction 
supplémentaire 


Déduire 10,20 % 
et supplémentaire 
s'il y a lieu 
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R=R + 
revenu imposable 


Calculer la 
tranche 
d'imposition 


Calculer le 
montant de 
l'impôt 


Calculer la 
décote 
s'ilya lieu 


Calculer la 
minoration ou 
la majoration 

s'il y a lieu 








Afficher 
l'impôt 
à payer 








AMSTRAD EN FAMILLE 


35 


—————————————————…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…——…——…—…——————_—_—_—._—_———————————————…—…—rRrRCr 


14 
28 


REM CALCUL D'IMPOIS 85 (REVENUS 84) 
REM ------------- 


30 MODE 1:INK @,8:INK 1,15:BORDER © 

48 DIM T(14):G0SUB 1088 

89 REM ---------------- 

99 REM DONNEES DE CALCUL 

180 CLS 

118 PRINT TAB(18)"CALCUL D'IMPOTS":PRINT:PRINT 
128 INPUT"ETES-VOUS MARIE (O/N)";R$ 

130 IF RS$="O" THEN M=2 ELSE M=1 

148 INPUT'NOMBRE DE PERSONNES A CHARGE"; P 
158 IF P>0 THEN M=M+P 

168 INPUT'NOMBRE DE PARTS"; N 

1/8 IF N<1 THEN 160 

188 INPUT'CHARGES DEDUCTIBLES";C 

199 FOR I=1 TO M 

268 CLS:IF 12 THEN PRINT D$(3);:1-2 ELSE PRINT D$( 
I) 

210 PRINT 

220 INPUT'REVENU IMPOSABLE";R(I) 

230 INPUT"DEDUCTION SUPPLEMENTAIRE (O/N)";RS 
248 IF RS<>"O" THEN 268 

258 INPUT"TAUX";TS(I1):TS(1)=TS(1)/100 

268 NEXT I 

380 REM -------------- 

398 REM CAI CUL 

488 CLS 

410 FOR I=1 TO M 

428 IF I>2 THEN PRINT D$(3);1-2 ELSE PRINT D$(I) 
430 PRINT'REVENU IMPOSABLE :";TAB(30):R(I) 
449 DI=R(I)"0.1 

450 IF DIi>S1 THEN D1=S1 

460 IF DicIi THEN D1-=0 

478 R(I)=R(I)-D1 

488 PRINT'DEDUCTION 10 %  :";TAB(38);-D1 
498 IF TS(I)=8 THEN 548 

500 DS=R(I)*1S(1) 

510 IF DS>SS THEN DS=5S5 

520 R(I)=R(I)-DS 

530 PRINT'DEDUCTION";TS(I)#100;"%  :";TAB(30);-DS 
549 D2=R(I)*0.2 

550 IF D2>S2 THEN D2=S2 

560 IF D2<I2 THEN D2=0 

570 R(I)=R(I)-D2 

580 PRINI"ABATTEMENT 20 % :";TAB(30);-D2 
590 PRINT'NET IMPOSABLE :"; TAB(30):R(I): PRINT 
600 RERERIT) 

619 NEXT 

600. RÉM cresson eee essais 

690 REM RESULTATS 

708 R=R-C:R=INT(R/18)#10:QF=R/N 

710 FOR I=1 TO 14 

720 D=D+T(I-1)+0.05 

730 IF QF<=T(1) THEN 760 

748 T=T+0.05 

758 NEXT I 

168 PRINT 

770 PRINT'TOTAL NET IMPOSABLE  :";TAB(30@);R 
780 PRINT'NOMBRE DE PARTS :"; TAB(30):N 
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798 PRINT'QUOTIENT FAMILIAL :";1AB(30); INT( 
800 PRINT'TRANCHE D'IMPOSITION :";TAB(38);T#10 
<" 

818 R=(R#T)-(DxN) 

820 IF R<408@ AND N=1 THEN DE=4000-R 

830 IF R<1680 AND N-1.5 THEN DE=1608-R 

840 IF DE>Q THEN PRINT"DECOTE "TA 
B(30);-DE:R=R-DE 

850 IF R<21521 THEN MI=R*0.05:TI=5 

860 IF R>21528 AND R<26900 THEN MI=4*(1345-(R#0.05 
)):TI=(MI/(R/180)) 

870 1F MI>8 THEN PRINT'MINORATION";USING" #.# %":T 
1:32 PRINT" :"; TAB(30);-INT(MI) 

880 IF R>32280 THEN ME=R+0.03:TM=3 

890 IF ME>0 THEN PRINT'MAJORATION";TM; "4% s" 
: TAB(30);INT(ME) 

908 PRINT"IMPOT :"; TAB(30)::IF R+M 
E-MI<320 THEN PRINT @ ELSE PRINT INT(R+ME-MI) 

918 IF INKEYS<>CHRS(13) THEN 918 

928 RUN 

JO REM 2-5 rss nsse 

998 REM TRANCHES 

1888 D$(1)="VOUS":D$(2)="VOTRE CONJOINT":D$(3)="PE 
RSONNE À CHARGE" 

1018 FOR I=1 TO 14 

1928 READ T(I) 

1939 NEXT I 

18648 REM TRANCHES D'IMPOSITION 

1058 DATA 14820,15490,18370,29050,37348,46920, 5677 
n] 

1060 DATA 65500,109148,158108,177550,201970,228920 
999999 

1870 REM MINI-MAXI DES 18,20% ET SUPPL. 

1880 I1-1800:51-54770:S2-99000 

1098 SS-50080 

1100 RETURN 


QF) 
0; 
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PROGRAMME 
Lignes 199 à 269 : données de calcul 


Après l'entrée des quatre premières questions, le programme sai- 
sit par une boucle FOR/NEXT le revenu et le taux de déduction 
supplémentaire pour tous les membres de la famille ayant des re- 
venus. 


Lignes 499 à 619 : calcul 


Pour chaque revenu on déduit les 10 et 20 %, et s’il y a lieu la 
déduction supplémentaire. 


Lignes 709 à 929 : résultats 


Après l'addition de tous les revenus et déduction des charges, on 
recherche la tranche d'imposition dans le tableau T à partir du quo- 
tient familial (revenu imposable divisé par le nombre de parts). La 
réduction d'impôt (variable D) est calculée en additionnant 5 % de 
toutes les tranches précédentes. 


Les lignes 820 à 849 calculent la décote, les lignes 859 à 870 la 
minoration et les lignes 880 à 890 la majoration. Vous devrez mo- 
difier ces lignes les années à venir en fonction des nouvelles me- 
sures fiscales. 


Lignes 1909 à 1199 : tranches 

Vous devez modifier chaque année les DATAs des lignes 1050 et 
1960 avec les nouvelles tranches d'imposition que l'on trouve gé- 
néralement en page 7 de la notice explicative. 

Les variables 11 et S1 correspondent au plancher et au plafond de 


la déduction de 10 %, S2 à celle des 20 % (pas de plancher) et SS à 
celle de la déduction supplémentaire. 
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LISTE DES VARIABLES : 


C 

D 
DE 
D1 
D2 
DS 
sal 


11 


ME 
MI 


OF 


R() 
R$ 
S1 
S2 
ss 


TI 


TM 
TS{() 
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montant des charges déductibles 
déduction de la tranche d'impôt 
montant de ia décote. 

montant de la déduction de 10 % 
montant de l'abattement de 20 % 
montant de la déduction supplémentaire 
noms des membres de la famille 

indice de boucle FOR/NEXT 

plancher de la déduction de 10 % 
nombre de personnes ayant des revenus 
montant de la majoration exceptionnelle 
montant de la minoration exceptionnelle 
nombre de parts 

nombre de personnes à charge 

quotient familial 

total des revenus imposables 

revenu imposable des membres de la famille 
réponse du contribuable 

plafond de l'abattement de 10 % 

plafond de l'abattement de 20 % 

plafond de la déduction supplémentaire 
taux de la tranche d'imposition 

taux de la minoration exceptionnelle 
taux de la majoration exceptionnelle 
taux des déductions supplémentaires 
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MUSIQUE 


Voilà pour exercer vos talents artistiques un programme de mu- 
sique. 


Après son lancement, deux portées se dessinent sur l'écran ainsi 
qu'une flèche. Celle-ci se déplace avec les touches droite et gauche 
et pointe l'endroit où se positionne la note entrée à l'aide des 
touches de la première rangée du clavier (du DO de la première 
octave au FA de la seconde. Exemple : 1=DO, 2=RE, 3=MI, etc.). 


En dessous des portées plusieurs options vous sont proposées : 


# DURÉE : en tapant sur B, N ou C vous obtenez des blanches, des 
noires, ou des croches. 


# ENVELOPPE : en tapant sur E puis sur une des deux flèches 
droite ou gauche vous pouvez la faire varier de 1 à 4. 


# TEMPO : il varie comme l'enveloppe, mais après avoir tapé sur 
la lettre T (de 1 à 20). 


Pour modifier une note il suffit de faire venir la flèche en dessous 
et d'effectuer le changement. 


Pour effacer ou insérer une note, il faut la désigner avec la flèche 
puis appuyer sur DEL ou COPY. 


Quand votre mélodie est entièrement écrite ou pour faire des es- 
sais, la touche M la fait exécuter par AMSTRAD. 
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Initialisation 
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18 REM MUSIQUE 

PO 'REM: === = Ses SSSR ER 

30 MODE 1:INK 8,1:INK 1,24:PAPER @:PEN 1:BORDER 1 

48 DIM N(128),D(128),V(11):SYMBOL AFTER 128: GOSUB 
1200 

50 F$S=CHRS(243)+CHR$S(242)+"CNBTE"+CHRS(224)+CHRS$(1 

27)+"M1234567890-" 

68 F(1)=148:F(2)-140:F(3)-144 

78 LF$S=CHR$S(18)+CHRS(8)+CHRS(8) 

88 FOR 1-128 TO 138 STEP 2 

90 C$=CS+CHRS(I)+CHRS(I+1)+LFS 

108 NEXT I 

118 GOSUB 1808 

128 I=-8:X=3:Y-2 

130 D=1:T-=10:E=1 

148 ENV 2,4,3,1,1,0,10,6,-2,2:ENV 3,15,1,1,1,0,10, 
151 LTENV 4, 3/;5;1,1,0%2:15;-1 1 

LOOTREM SEE ses SSSR See SES 

290 REM SAISIE DES NOTES 

3008 LOCATE X,Y+6:PRINT""":LOCATE 7,23:PRINT CHRS(F 
(D)) 

318 LOCATE 1,24:PRINT"DUREE:"; CHRS(F(D)+1):PRINT'"'E 

NVELOPPE:";E;" TEMPO:";T; 

320 AS=INKEYS:IF A$="" THEN 328 

330 LOCATE X,Y+6:PRINT" " 

340 Z=INSTR(FS$S,AS$S):A$="".IF 7-0 THEN 308 

350 IF Z>10 THEN 7=7-1@:GOT0 558 

368 ON Z GOT0O 376,398,410,418,418,420,450,488,510, 
540 

370 IF I<113 THEN I=I1+1:X=X+1:1IF X=41 THEN X=3:Y=Y 

+7 

388 GOTO 368 

390 IF I>0 THEN I=I-1:X=X-1:IF X=2 THEN X=48:Y=Y-7 

400 GOTO 380 

418 D=7-2:GOT0 308 

42@ WHILE A$="":A$S=INKEYS:WEND:IF AS$-=CHR$(242) AND 
T>1 THEN T=T-1 

430 IF A$=CHR$S(243) AND T<28 THEN T=T+1 

440 GOTO 360 

450 WHILE A$="":AS$S=INKEYS:WEND:IF AS$S=CHR$S(242) AND 
E>1 THEN E=E-1 

468 IF A$=CHR$(243) AND E<4 THEN E=E+1 

4706 GOTO 388 

488 FOR J=113 TO I STEP -1:N(J+1)=N(J):D(J+1)=D(J) 
:NEXT J 

490 N(I)=@:D(I1)=0:X1-=X:Y1=Y:11=I:GOSUB 1008:X=X1:Y 
=Yl1:1=11 

508 GOTO 308 

510 FOR J=I TO 113:N(J)=N(J+1):D(J) 
520 N(113)=-0:D(113)-8@:X1=X:Y1-Y:1I1- 

X1:Y=Y1:1=11 

530 GOTO 388 

540 GOSUB 880:GOT0 388 

558 N(I)=Z 

568 D(I)=D 

5/0 GOSUB 1858:1F X=1 THEN X=3 

580 SOUND 1,V(N(I)),D(I})#2*T, 12 

590 IF I<113 THEN I=I+1 ELSE X=48:Y-16 

608 GOTO 308 


=D(J+1):NEXT J 
I: GOSUB 10008:Xx- 
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————…—…—…—…—…—…—…—…—… …—…—…—…—…———————————————————…—…—…—“0—00"020202000 0 


POONREMISEE SE ESS ESS ETES ere 

790 REM MUSIQUE 

800 FOR J=@ TO I 

818 SOUND 1,V(N(J)),D(J)#2#T,12,E 

828 NEXT J 

830 RETURN 

980 .REM: =-=-----"#2-2-scemsrsssesses 

998 REM DESSIN DE LA PORTÉE 

1008 X=1:Y-=2 

1810 FOR I=8 TO 113 

1020 GOSUB 1850 

1830 NEXT I 

1048 RETURN 

1850 IF X=1 THEN LOCATE 1,Y:PRINT CS$:X=X+2 

1960 LOCATE X,Y-1:PRINT" "; LOCATE X,Y+5:PRINT" " 
1970 FOR J=Y TO Y+4:LOCATE X,J: PRINT CHR$(152):NEX 


T 

1080 IF N(I)=-0 THEN 1138 

1098 IF N(I)/2=INT(N(I)/2) THEN P=2 ELSE P-=0 

1100 IF D(I)<2 THEN N=8:GOTO0 1128 

1110 IF D(I)>2 THEN N=4 ELSE N= à 

1120 LOCATE X,Y+4-INT((N(I)-1)/2):PRINT CHRS$S(148+P 
+N):LOCATE X, Y+5- INT((N(I)-1)/2):PRINT CHR$S(141+P+ 
N) 


1130 X=X+1:IF X=41 THEN X=1:Y=Y+7 
1148 RETURN 

NO RM: men een ca tale 

1190 REM GRAPHIQUES 

1208 SYMBOL 128,1,2,4,4,4,255,4,4 

1218 SYMBOL 129,128,64,32,32,32,255,32,96 
1220 SYMBOL 130,4,4,4,4,5.255,3.6 

1230 SYMBOL 131,96,96,192,192,128,255,0,0 
1248 SYMBOL 132,14,14,26,50,58,255,99, 199 
1250 SYMBOL 133,0,0,0,0,0,255,192,224 

1268 SYMBOL 134,207,217,209,209,209,255,200,196 
1270 SYMBOL 135,240,48,24,24,8,255,136, 136 
1288 SYMBOL 136,64,32,32,16,15.255.0,8 

1298 SYMBOL 137,144,144,160,192,192,255,64,64 
1308 SYMBOL 138,0,8,14,31,31,30,15,0 

1310 SYMBOL 139,64,64,64,64,64,64,128,0 

1320 SYMBOL 140,0,06,0,0,2,255,2, 2 

1338 SYMBOL 141,2,2,2,62,126,255,126,68 

1348 SYMBOL 142,2:2:2,2,2,055,2,62 

1350 SYMBOL 143,126,126,126,60,8,255,0,8 

1368 SYMBOL 144,8,8.8,8.2,255,2,2 


13/9 SYMBOL 145,2,2,2,62,66,255,66,68 
1380 SYMBOL 146,2,2,2,2,2,255,2,62 

1390 SYMBOL 147,66,66,66,60,0,255,0,0 
1488 SYMBOL 148,0,0,0,0,6,255,5,5 

1416 SYMBOL 149,5,4,4,60,124,255,124,56 
1428 SYMBOL 150,6,7,5,5,5,255,4,68 

1438 SYMBOL 151,124,124,124,56,8,255,0,0 
1448 SYMBOL 152,0,8,0,0,0,255,0,8 


1459 FOR I=1 TO 11 

1468 READ V(I) 

1478 NEXT I 

1480 RETURN 

1498 DATA 239,213,190,179,159,142,127,119,106,95,8 
9 
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LE PROGRAMME 

Lignes 39 à 149 : initialisation 

Après la définition des caractères graphiques par le sous-program- 
me en 1290, on place dans le tableau F{) les pointeurs des carac- 
tères représentant les 3 durées et on initialise les quatre enveloppes 
possibles. 

Le sous-programme en 1900 affiche la portée et les clefs. 


Lignes 399 à 699 : saisie des notes 


La saisie est divisée en 11 parties : 


ligne 379 : déplace le curseur à droite 

ligne 399 : déplace le curseur à gauche 

ligne 419 : modifie la durée de la prochaine note 
lignes 429 à 449 : modifient le tempo de la mélodie 

lignes 459 à 479 : modifient l'enveloppe de la mélodie 
lignes 489 à 599 :insèrent une note sous le curseur 

lignes 519 à 539 : suppriment la note sous le curseur 

ligne 549 : joue la mélodie (sous-programme en 800) 
lignes 559 à 609 : placent une note dans N{) et D(). 


Lignes 899 à 999 : musique 


Ces lignes jouent toutes les notes du tableau N() pour les durées 
contenues dans le tableau D(). 


Lignes 1999 à 1149 : dessin de la portée 


Le sous-programme affiche sur l'écran les portées avec les clefs de 
sol, ainsi que toutes les notes du tableau Ni). 


Cette partie du programme est aussi utilisée pour supprimer ou 
ajouter une note (option COPY et DEL). 
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LISTE DES VARIABLES : 


AS$ dernière touche appuyée 

C$ dessin de la clef de sol 

D durée en cours 

D() liste des durées 

E type d'enveloppe en cours 

F() pointeurs des caractères graphiques pour chaque 
durée 

F$ liste des fonctions 

I position du curseur dans le tableau N() 

11 sauvegarde de | 

J indice de boucle FOR/NEXT 

LF$ 1 flèche vers le bas + 2 flèches vers la gauche 

N 2° pointeur des graphiques de la note à afficher 

N() liste des notes 

P 1°" pointeur des graphiques de la note à afficher 

T tempo en cours 

V() liste des fréquences de chaque note 


Xet Y position du curseur sur l'écran 
XTet Y1 sauvegardes des variables X et Y 
Z numéro de la note en cours 
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GEOGRAPHIE 


Comment devenir un as en géographie grâce à votre ordinateur ? 


Celui-ci vous dessine d’abord les cartes de la France et de la Corse. 
Puis il vous demande soit la préfecture d'un département, soit le 
numéro du département d'une préfecture. À chaque bonne ré- 
ponse il affiche définitivement la ville, sinon il l'efface et vous la 
reproposera plus tard. 


Vous pouvez compter sur l'infinie patience de votre AMSTRAD. Il 
s'arrêtera seulement quand toutes les villes seront rétablies sur la 
carte. 











DES 








| us 
19 UILLES TROUUEES 
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GEOGRAPHIE 







Tracer la 
carte de 
France 







Lire les datas 
coordonnées, noms 
et départements 
des villes 













P - Nb 
aleatoire 


dejà trouvee 
? 


Afficher le 
n° du 
departement 


Afficher le 
nom de 
la ville 


Entrer le 
nom de 
la ville 


Entrer le 
n° du 
département 








non 


Afficher le 
nb de villes 
dejà trouvees 






non 
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18 REM GEOGRAPHIE 

2Q@ REM ------————- 

36 DIM X(95),Y(96),N$(96),D$(96),6(96) 

4@ MODE 1:INK @,1:INK 1,24:PAPER @:PEN 1:BORDER 1 
5 RANDOMIZE TIME 

6Q PLOT 212,392 

99 FOR 1=1 TO 123 

8@ READ X,Y:DRAW X*2,408-Y*2 

Y9Q NEXT 

104 PLOT @,399:DRAWR 380,0:DRAWR 0,-380:DRAWR -380 
,4:DRAWR U,380@ 

118 PLOT 32,100 

12@ FOR I=1 TO 24 

13Q READ X,Y:DRAW X*2,400-Y*2 

14Q NEXT 

150 PLOT @,112:DRAWR 54,0:DRAWR @,-93:DRAWR -54,0: 
DRAWR 6,93 

168 FOR 1=1 TO 96 

170 READ X(I1),Y(1),N$(I1),0$( 
188 X(I1)]=X(I1)*2:Y(1)=400-Y(I 
198 NEXT I 

28Q REM -----------—---—-——————--- 
29Q REM NOM DES VILLES 

300 P=INT(RND(1)*96)+1:IF G(P)<>Q THEN 308 
310 IF RND(1)>@0.5 THEN 370 

32@ LOCATE 25,10:PRINT CHA$(18);"VILLE:" 


k — 


I 
) 


33@ LOCATE 25,14:PRINT CHRAS$(18); "DEPARTEMENT :":LOC 
ATE 25,15:PRINT CHRA$(18);D$(P) 

340 GOSUB 606 

350 IF RS<>LEFTS(NS(P),LEN(R$)) OR A$="" THEN 300 
360 GOTO 420 

37@ LOCATE 25,10:PRINT CHA$(18);"DEPARTEMENT:" 

388 LOCATE 25,14:PRINT CHA$(18);"VILLE:":LOCATE 25 
,15:PRINI CHA$(18);NS$(P) 

390 GOSUB 600 

480 IF LEN(R$)=1 THEN R$="0"+R$ 

410 IF R$<>D$(P) THEN 300 

428 PLOT X(P),Y(P),1:DRAWR 1,0,1:DRAWR @,-1,1:DRAW 
R -1,0,1:DRAWR @,1,1 

430 G(P)}=1:6=6+1 

44 LOCATE 4,25:PRINT G;"VILLES TRAOUVEES"; 

450 IF G<96 THEN 300 

468 LOCATE 2,25:PRINT"VOUS ETES FORT EN GEO 7"; 
470 IF INKEY$=CHA$S(13) THEN RUN ELSE 470 


5BQ REM -------" 
598 AEM SAISIE DES REPONSES 
600 A$="":LOCATE 25,11:PRINT CHR$(18); 


610 PLOT X(P),Y(P),8:DRAWR 1,0,8:DRAWR @,-1,8:DRAW 
R -1,0,0:DRAWR 0,1, 

62@ AS=INKEYS:IF A$="" THEN 680 

630 IF A$=CHR$(13) THEN RETURN 

640 IF AS=CHA$(127) THEN IF LEN(RS)>@ THEN R$=LEFT 
$(A$,LEN(R$)-1):GOTO 670 ELSE 670 

650 RF=A$+A$ 

668 IF LEN(R$S)=16 THEN RETURN 

67@ LOCATE 25,11:PRINT A$;" ";CHA$(8); 

688 PLOT X(P),Y(P),1:DRAWR 1,0,1:DRAWR 6,-1,1:DRAW 
R -1,0,1:DRAWR G,1,1 

698 GOTO 610 
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988 REM -----------""-" 
996 PEM FRANCE METROPOLITAINE 


1000 
1818 
1020 
1030 
1040 
1050 
1068 
1070 
1080 
109a 
1100 
1110 
1120 
1130 
1148 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1268 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1480 
1410 
1420 
N,85 
1430 
,86 
1440 
1450 
1460 
Y,74 
1470 
1488 
1490 
1500 
1510 
1520 
1530 
1540 


DATA 93,8,91,25,73,33,72,37,74,38 
DATA 68,41,57,39,54,40,52,36,53,34 

DATA 53,32,44,32,45,39,47,41,48,52 

DATA 50,53,50,55,45,54,44,52,38,54 

DATA 37,53,32,56,26,48,19,49,19,52 

DATA 16,50,3,54,2,57,7,57,8,57 

DATA 5,60,8,61,8,62,2,63,6,66 

DATA ?7,69,9,70,12,67,25,76,29,74 

DATA 29,77,33,78,33,81,38,684,38,86 

DATA 39,87,38,91,42,99,51,103,52,110 

DATA 58,115,58,125,51,120,44,160,40, 165 

DATA 45,166,44,172,48,172,59,177,62,176 

DATA 66,179,79,18@,77,1?77,90, 182,93, 182 

DATA 95,185,100,188, 102,186,105, 188, 108, 188 
DATA 110,186,114,186,116,184,114,181,115,172 
DATA 129,162,131,163,138, 164, 140, 167,143, 164 
DATA 158,170,165,169,184,153,185,146,178, 147 
DATA 172,142,174,134,168,131,168,127,174,124 
DATA 174,118,170,.113,172, 109, 169,105, 169,100 
DATA 162,100,160, 185,156, 106,159,97,172,79 
DATA 176,79,178,61,186,45,164,41,162,37 

DATA 157,35,154,37,150,35,147,35,138,30 

DATA 138,22,135,24,135,27,129,27,128,19 

DATA 122,20,119,15,115,15,115,12,113,9 

DATA 110,12,107,7,1@6,4 

REM = 

REM CORSE 

DATA 16,156,14,155,6,160,5,163,7,165 

DATA 5,165,5,167,8,169,6,173,8,173 

DATA 7,176,10,177,8,180,13,182,13,183 

DATA 15,184,18,177,18,172,20,168,20, 159 

DATA 18,156,19,154,18,149,16,150 

REM == 

REM VILLES 

DATA 127,62,TROYES, 18,175,64,COLMAR,68 

DATA 161,63,EPINAL,88,142,66,CHAUMONT ,52 
DATA 29,73,VANNES,56, 120,73, AUXERRE , 89 

DATA 168,73,BELFORT,90,158,75,VESOUL , 70 

DATA 88,77,BL0I5,41,61,79,ANGERS,49 

DATA ?9,81,TOURS,37,46,83,NANTES , 44 

DATA 142,83,DIJON,21,157,83,BESANCON, 25 

DATA 103,88 ,BOURGES , 18,115,90,NEVERS,58. 
DATA 93,94,CHATEAUROUX ,36,48,95,LA ROCHE S/YO 


DATA 150,95,LONS-LE-SAUNIER,39,74,99,POITIERS 


DATA 118,99,MOULINS,03,62,103,NIORT, 79 
DATA 52,106,LA ROCHELLE , 17,139, 103,MACON, 71 
DATA 145,105,BOURG EN BRESSE ,01, 159, 11@,ANNEC 


DATA 112,14,LILLE,59,108,20,ARRAS,62 

DATA 102,30 ,AMIENS,80,135,30,MEZIERES,08 
DATA 121,36,LAON,02,86,39,ROUEN, 76 

DATA 99,39,BEAUVAIS,60,65,43,CAEN, 14 

DATA 54,45,ST L0,50,30,56,ST BRIEUC,22 

DATA 10,65,QUIMPER,29,46,66,RENNES,35 

DATA 85,47,EVREUX,27,157,44,METZ,57 

DATA 179,54,STRASBOURG,67,131,48,CHALONS S/MA 


ANE,51 
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155Q DATA 
1568 DATA 
1578 DATA 
1588 DATA 
1598 DATA 
1608 DATA 
ND ,63 
1610 DATA 
160 DATA 
1630 DATA 
164@ DATA 
1658 DATA 
1668 DATA 
1670 DATA 
1680 DATA 
1698 DATA 
,40 

1708 DATA 
1710 DATA 
172@ DATA 
1730 DATA 
1740 DATA 
1250 DATA 
126@ DAIA 
1778 DATA 
1780 DATA 
12790 DATA 
18@@ DATA 
181@ DATA 


183,50 ,PARIS,75,142,52,BAR LE DUC,55 
156,53,NANCY,54,70,6@,ALENCON,61 

90,60 ,CHARTRES,28,107,57,MELUN, 77 

58,66 ,LAVAL,53,73,68,LE MANS,72 

97,70 ,0HLEANS,45,96, 107,GUERET ,23 
96,113,LIMOGES,87,114,115,CLERMONT-FERRA 


14@,114,LYON,69,134,122,ST ETIENNE ,42 
157,118,CHAMBERY,73,70,117, ANGOULEME, 16 
80 ,126,PERIGUEUX,24,95,125,TULLE , 19 
104,133, AURILLAC,15,120,141,MENDE ,48 
159,140,GAP,05,125,1308,LE PUY,43 
137,135,PRIVAS,07,142,132 , VALENCE ,26 
153,126,GRENOBLE ,38, 112,180 ,PERPIGNAN, 66 
150,165,MARSEILLE,13,91,174,F0IX,09 
58,134 ,BORDEAUX , 33,60, 155 ,MONT-DE-MARSAN 


62,166,PAU,64,68,168,TARBES,65 
103,169, CARCASSONNE , 11,158, 168, TOULON ,83 
129,155,NICE ,06,126,160,MONTPELLIER, 34 
77,159, AUCH, 32,89,160, TOULOUSE ,31 
797,148 ,AGEN,47,89,151,MONTAUBAN, 82 

106 ,154,ALB1,81,133,150,NIMES, 30 
142,153, AVIGNON ,84,162,149,DIGNE ,04 
90,142 ,CAHORS, 46, 186,144 ,RODEZ, 12 
7,172 ,AJACCIO,2A,105,52,CRETEIL,94 
101,49,NANTERRE ,92,1@4,48 ,BOBIGNY,93 
105,55,EVRY,91,100,52,VERSAILLES,78 
104,45,PONTOISE ,95,19,155,BASTIA,2B 
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LE PROGRAMME 
Lignes 39 à 199 : initialisation 


Après le dimensionnement des divers tableaux (voir liste des varia- 
bles), le programmeinitialise les nombres aléatoires (ligne 50). 


Les lignes 60 à 149 tracent la carte de France et de Corse avec les 
DATAs des lignes 1009 à 1310. 


On place les coordonnées, le nom et le département des villes dans 
les tableaux X(}), Y(), N$() et D$() avec les DATAs des lignes 1340 à 
1810. 


Lignes 309 à 479 : nom des villes 
Le nombre aléatoire contenu dans la variable P pointe une des 95 
villes du fichier. Si cette ville a déjà été trouvée (G(P)< > @)onen 


essaye une autre (ligne 300). 


Le nombre aléatoire de la ligne 319 détermine si l’on doit demander 
le nom ou le numéro du département. 


La saisie de la réponse s'effectue à l’aide du sous-programme des 
lignes 600 à 690. 


Si la réponse est juste, on place le chiffre 1 dans le tableau G() pour 
ne pas demander plusieurs fois la même ville. 

Lignes 699 à 699 : saisie des réponses 

On saisit caractère par caractère la réponse du joueur, ceci pour 
éviter l'instruction INPUT qui pourrait détruire le dessin si l'on tape 


trop de lettres ou de chiffres. 


On sort du sous-programme quand le joueur a appuyé sur la touche 
ENTER ou si la réponse contient au moins 16 caractères. 
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LISTE DES VARIABLES : 


AS dernière touche appuyée 
D$() liste des départements 
nombre de villes déjà trouvées 
G{) liste des villes déjà trouvées 
I indice de boucle FOR/NEXT 
N$() liste des villes 
P pointe la prochaine ville à trouver 
R$ réponse du joueur 
XetY coordonnées d'un point à afficher 


X()et Y(} coordonnées des villes sur l'écran 
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APPRENDRE A TAPER AU CLAVIER 


Si vous désirez apprendre à taper ou améliorer votre vitesse de 
frappe au clavier, le programme qui suit devrait vous être très utile. 


Après le dessin du clavier, AMSTRAD affiche une lettre au hasard 
sur la touche correspondante. Vous devez bien sûr taper immédia- 
tement cette même lettre pendant le temps très court qui vous est 
imparti. Chaque réponse correcte vous donne un point. Si vous 
obtenez plus de 17/20, le niveau de rapidité augmente. Pour les 
niveaux supérieurs à 5 il n'est plus possible de regarder le clavier, 
vous devrez donc le connaître par cœur | 


Paradoxalement, vous devrez taper le programme avant de pou- 
voir vous exercer | 














CPS ES AE El 
DOC OOGO 
EE EPA ET ES EI ET E) 








CHENE OUEN 
| 


NIVEAU: 4 MOYENNE: 19 /20 
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APPRENDRE A TAPER AU CLAVIER 





Afficher 
le 
clavier 
















Afficher 
une lettre 
au hasard 






Entrer 
la 
réponse 
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10 
20 
30 


REM APPRENDRE A TAPER AU CLAVIER 
REM 
DIM C$(48),X(48),Y(48) 


48 MODE 1:INK @,1:INK 1,24: PAPER @:PEN 1:BORDER 1 

50 DATA 1,2,3,4,5,6,7,8,9,0,- 

68 DATA Q,MW,E,R,T,Y,U,I,0,P:@:[C 

70 DATA A,S,D,F,G,H,,K,L,":".:,1 

88 DATA Z,X,C,V,B,N,M,",",.,/,\ 

98 DATA " " 

198 Y=3:X=2 

118 FOR I=1 TO 48 

128 READ C$(I) 

138 X(I)=X:Y(1)=Y 

148 X=X+3 

150 IF X>37 THEN Y=Y+3:X=INT(Y/3)+1 

168 NEXT I 

178 RANDOMIZE TIME 

288 REM ------------------ 

298 REM DESSIN DU CLAVIER 

300 CLS 

318 FOR I=1 TO 47 

328 MOVE X(I1)*16-26,425-Y(I1)*16:DRAWR 35,0:DRAWR @ 
,-35:DRAWR -35,8:DRAWR 0,35 

338 NEXT I 

348 MOVER -13,-48:DRAWR -419,8:DRAWR 8,-35:DRAWR 4 
19,8:DRAWR 8,35 

358 X(48)=20:Y(48)=15 

300 REM ------"mm-- cesse 

398 REM APPRENTISSAGE 

488 N-6 

418 P-8 

420 LOCATE 1,28:PRINT “NIVEAU: ";N;" MOYE 
NNE:" 

430 FOR K=1 TO 28 

448 C=INT(RND(1)#48)+1 

458 IF C=48 THEN LOCATE X(C),Y(C):PRINT CHRS(231): 
GOTO 478 

468 LOCATE X(C),Y(C):PRINT CS(C) 

470 FOR I=1 TO 388-N*28 

488 AS=INKEYS:IF A$<>"" THEN 500 

498 NEXT I 

500 IF A$=C$(C) THEN P=P+1 

518 LOCATE 30,20:PRINT P;"/20 " 

526 FOR I=1 TO 388-N20:/S=INKEYS:NEXT I 

530 LOCATE X(C),Y(C):PRINT" " 

540 NEXT K 

550 IF P>17 THEN N=N+1:FOR 1=568 TO 58 STEP -5:SOU 


ND 1,1,2:NEXT ELSE FOR 1-58 TO 580 STEP 5:SOUND 1, 
1,2: NEXT 

568 IF N>9 THEN N-9 

578 GOTO 418 
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LE PROGRAMME 
Lignes 39 à 179 : lecture des DATAs 


On place dans le tableau CS) les lettres qui composent le clavier et 
dans les tableaux X{) et Y{) leurs coordonnées sur l'écran. 


La ligne 17Qinitialise les nombres aléatoires. 


Lignes 399 à 359 : dessin du clavier 


Chaque touche du clavier est représentée par un carré sur l'écran. 
La touche d'espace étant de forme différente, c'est la ligne 340 qui 
l'affiche. 


Lignes 499 à 579 : apprentissage 


On affiche vingt fois de suite une lettre au hasard aux coordonnées 
pointées par les tableaux X et Y. 


Pour la barre d'espacement, on affiche le point contenu dans le 
caractère graphique 231. La ligne 480 saisit la réponse du joueur 
pendant un temps précis défini par le niveau N. Si on a plus de 17 
réponses exactes, on augmente automatiquement le niveau (ligne 
550). 


LISTE DES VARIABLES : 


A$ réponse tapée au clavier 

C numéro de la lettre choisie au hasard 
C$() tableau des lettres du clavier 

| indice de boucle FOR/NEXT 

K indice de boucle FOR/NEXT 

N niveau de rapidité 

P nombre de points 

Xet Y coordonnées temporaires 


X()et Y(} coordonnées des lettres sur l'écran 
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ALPHABET 


Si, depuis que vous avez acheté votre AMSTRAD, vos charmants 
enfants vous le réclament par curiosité, proposez-leur ce program- 
me qui les occupera pendant que vous lirez la suite de ce livre. 


L'alphabet entier se dessine sur l'écran. Il y a une lettre à trouver et 
elle est désignée par un rectangle noir. 


Si le caractère frappé par l'enfant en réponse est le bon, il entend 
une petite musique bien connue. Dans le cas contraire, c'est une 
gamme descendante qui se fait entendre. 


Il n'y a qu'un seul essai à chaque coup. Par contre, l'ordinateur 
demandera inlassablement une nouvelle lettre... 








AEBECDEF CHI. Im 


MOPGRS TUE 
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ALPHABET 





DEBUT 
— 


L = nombre 
aléatoire 











Déplacer 


Musique 
« perdu » 





Afficher un 
carré noir 








Afficher 
le train 


Musique 
« gagné » 
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180 
190 
280 
BOR 
218 
220 
230 
240 
258 
260 
270 
280 
UE 

298 
308 
310 
320 
330 
380 
398 
408 
410 
420 
430 
440 
450 
460 
470 
480 
498 
508 
518 
SOU 
528 
SOU 
530 
78 

548 
558 
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REM ALPHABET 
BEM een enuper  Déren 
SYMBOL AFTER 128 
SYMBOL 128,6,38,18,255,128,128,255,68 
SYMBOL 129,63,33,33,255,1,1,255,60 
SYMBOL 130,63,32,47,41,47,32,255, 30 
SYMBOL 131,255,1,61,37,61,1,255, 30 
RANDOMIZE TIME 

REM ===" 

REM AFFICHE LE JEU 

MODE 6:INK 06,1:INK 1,24:INK 2,6:PAPER @:PEN 1: 
DER 1 

LOCATE 5,6 

L= INT (RND(L)=26)+1 

FOR I=1 TO 26 

IF I=L THEN PRINT CHRS(143);:GOTO 268 

PRINT CHR$(64+I); 

IF 1=13 THEN LOCATE 5,10 

NEXT I 

LOCATE 1,22:PRINT"QUELLE EST LA LETTREQUI MANQ 
27" 

MOVE 6,189:DRAW 640,109, 2 

P=5:D=15:PEN 2 

FOR 1=5 TO 14 STEP 2 

LOCATE I,18:PRINT CHR$(138);CHRS$(131) 

NEXT I 

RER scene ones tuee 

REM LE JEU 

FOR I=1 TO 18 

AS=INKEYS: IF A$<>"" THEN 498 

NEXT I 

LOCATE P,18:PRINT CHR$(130);CHRS(131) 

P=P-2:1F P<i THEN P=18 

D=D-2:1F D<1 THEN D-18 

LOCATE P,18: PRINT .CHR$(128);CHRS(129) 

LOCATE D,18:PRIN 

GOTO 400 

IF A$<"A" OR AS>"Z" THEN 410 

LOCATE 14,23:PRINT A$ 

IF AS<>CHRS(64+L) THEN FOR I1=58 TO 588 STEP 4: 
ND 1,1,2:NEXT:GOTO 548 

RESTORE 536:FOR I=1 TO 11:READ N: SOUND 1,N,25: 
ND 1,6,5,0:NEXT I 

DATA 478,478,478,426,379,426,478, 379,426, 426,4 


FOR I=1 TO 1888:NEXT I 
GOTO 268 
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LE PROGRAMME 
Lignes 39 à 89 : initialisation 


Initialisation des caractères graphiques et des nombres aléatoires 
d'AMSTRAD. 


Lignes 299 à 339 : affichent le jeu 


Ces lignes affichent l'alphabet en gros caractères (MODE 0) et un 
carré noir sur la lettre à trouver. Elles affichent aussi un petit train 
en bas de l'écran. 


Lignes 499 à 559 : le jeu 


Les lignes 400 à 429 testent dix fois de suite si une touche a été 
enfoncée. Si c'est le cas, on va en ligne 490 pour la vérifier. Dans le 
cas contraire on déplace le train d'une case. 


LISTE DES VARIABLES : 


A$ dernière touche appuyée 

D dernière position du train 

| indice de boucle FOR/NEXT 
L lettre à trouver 

P position de départ du train 
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APPRENDRE A COMPTER 


Une idée originale pour apprendre à compter ! 


Un nombre différent de pommes, cow-boys, téléphones, etc., se 
dessine à l'écran. Votre bambin doit tout simplement les compter 
et donner au professeur (le plus patient des professeurs !) le nom- 
bre qu'il pense avoir trouvé. 


AMSTRAD ne donne pas la réponse, mais indique quand même si 
elle est exacte. 


On recommence ? 
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Réponse 
OK. ? 











APPRENDRE A COMPTER 


Initialisation 
des caracteres 
graphiques 


Initialisation 
des noms des 
objets 





oui 





Réponse 
juste ? 


Afficher 
« BRAVO » 





Musique 
« Gagné » 








AMSTRAD EN FAMILLE 


65 


18 REM APPRENDRE A COMPTER 
AU REMee enorme aeuaR Gens 

38 MODE 8 

48 DIM NS(21):SYMBOI AFTER 166:GOSUB 368 
50 INK 6,1:INK 1,24:PAPER 6:PEN 1:BORDER 1 
68 AS=CHRS(18)+STRINGS(2,8) 

78 RANDOMIZE TIME 

80 I=INT(RND(1)*22) 

98 CLS 

188 N=INT(RND(1)#9)+1 

119 FOR J=1 TO N 

128 LOCATE X(J),Y(J) 

138 PRINT CHRS(166+1#4); CHRS(168+1*4); 

148 PRINT AS; 

158 PRINT CHRS(167+1#4); CHR$S(169+1*4) 

168 NEXT J 

178 LOCATE 6,28:PRINT"NOMBRE "; 

188 IF LEFTS(NS(I),1)="A" OR LEFTS(NS(I),1)="H" TH 
EN PRINT"D'" ELSE PRINT"DE" 

198 PRINT TAB(1@-LEN(NS(I))/2);NS(I);" 2" 
208 RS=INKEYS:IF RS="" THEN 208 

218 R=VAL(RS):IF R=0 THEN 268 

220 LOCATE 6,28: PRINT" “ 

238 LOCATE 8,28:IF R=N THEN PRINT"BRAVOI!" ELSE PRI 
NT'NON!";N 

248 PRINT STRINGS(19,32) 

258 IF R=N THEN FOR I2=588 TO 58 STEP -5:SOUND 1,1 
L,2:NEXT ELSE FOR I%:58 TO 506 STEP 4:SOUND 1,1%, 2 
: NEXT 

268 GOTO 88 

289 REM ------------------------- 
290 REM GRAPHIQUES 

308 SYMBOL 166,7,5,7,1,15,31,51,99 

318 SYMBOL 167,111,7,7,3,3,3,3,15 

320 SYMBOL 168,240,176,240,192,248,252,230,227 
330 SYMBOL 169,227,224: 96,96, 96,96, 96,120 
348 SYMBOL 170,0,0,7,4,4,31,16,19 

358 SYMBOL 171,19,16,16,19,18,18,16,31 

368 SYMBOL 172,8,192,224,32,34,250,10,202 
379 SYMBOL 173,202,18,18,206,72,72,8,248 
388 SYMBOL 174,0,3,13,16,32,32,64,97 

398 SYMBOL 175,65,33,32,16,13,3,0,0 

408 SYMBOL 176,8,128,96,16,56,72,138,12 
418 SYMBOL 177,4,8,8,16,96,128,0,@ 

428 SYMBOL 178,0,3,12,16,33,35,69,65 

438 SYMBOL 179,65,65,33,33,16,12,3,0 

448 SYMBOL 188,0,192,48,8,4,116,66,98 

458 SYMBOL 181,66,66,4,4,8,48,192,0 

468 SYMBOL 182,0,63,196,159,228,9,18, 36 
478 SYMBOL 183,40,40,36,34,33,32,63,24 

488 SYMBOL 184,0,252, 35,249, 39,144, 72,36 
498 SYMBOL 185,20,206,108,188,148,4,252,24 
508 SYMBOL 186,127,64,84,92,7/72,64,64,66 
518 SYMBOL 187,67,65,64,84,92,7/2,64,127 
520 SYMBOL 188,252,4,84,116,36,4,4,132 

530 SYMBOL 189,132,4,4,84,116,36,4,252 

548 SYMBOL 190,255,68,68,255,17,17,255,68 
550 SYMBOL 191,68,255,17,17,255,68,68,255 
568 SYMBOL 192,255,68,68,255,17,17,255,68 
576 SYMBOL 193,68,255,17,17,255,68,68,255 
580 SYMBOL 194,63, 32,36, 32, 32,36, 32,63 

598 SYMBOL 195,32, 32,32,32,36,32,63,0 

688 SYMBOL 196,252,4,36,4,4,36,4,252 

618 SYMBOL 197,4,36,4,4,4,4,252,0 

628 SYMBOL 198,3,6,10,18,34,74,130,146 
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630 
648 
658 
668 
670 
680 
698 
708 
718 
720 
738 
748 
758 
760 
778 
780 
798 
880 
819 
820 
830 
840 
850 
860 
870 
880 
890 
908 
918 
928 
938 
948 
950 
960 
978 
980 
990 
1008 
1918 
1820 
1938 
1949 
1850 
1860 
1970 
1888 
1898 
1100 
1110 
1128 
1138 
1148 
1150 
1168 
1178 
1180 
1190 
1200 
1210 
ES, C 
1220 
CLOC 
1230 
1248 
1259 
,13 


SYMBOL 199,13,164,137,133,164,192,255,0 
SYMBOL 200,255,1,73,1,73,1,73,1 
SYMBOL 201,255,2,36,8,144,32,192,0 
SYMBOL 202,1,64,208,48,25,141,95, 35 
SYMBOL 2063,83,139,11,3,3,3,3,7 
SYMBOL 204,32,162,68,136,52,227,128,241 
SYMBOL 205,202,164,146,168,128,128,128,192 
SYMBOL 206,0,0,12,30,63,127,127,63 
SYMBOL 207,30,12,8,8,0,0,8,8 
SYMBOL 208,7,26,188,132,8,136,144,16 
SYMBOL 209,24,66,126,255,255,126,60, 24 
SYMBOL 218,0,0,3,1,1,1,1,1 
SYMBOL 211,7,3,7,31,11,23,44,128 
SYMBOL 212,128,128,224,64,192,64,192,64 
SYMBOL 213,240,96,240,252,104,244,26,15 
SYMBOL 214,63,96,192,135,140,152,248,152 
SYMBOL 215,24,48,96,192,255,1,3,3 
SYMBOL 216,252,6,3,225,49,25,31,25 
SYMBOL 217,24,12,6,3,255,128, 192,192 
SYMBOL 218,0,1,19,31,255,127,63,31 
SYMBOL 219,31,31,31,63,63,127,31,0 
SYMBOL 220,192,224,252,255,254,254,254, 252 
SYMBOL 221,252,252,254,254,255,252,128,8 
SYMBOL 222,8,0,0,0,0,7,31,127 
SYMBOL 223,127,255,255,255,255,255,127, 62 
SYMBOL 224,0,7,24,44,206,199,131,129 
SYMBOL 225,128,192,192,192,128,128,8,8 
SYMBOL 226,1,7,15,63,255,80,76,69 
SYMBOL 227,65,65,73,68,35,17,8,7 
SYMBOL 228,0,192,224,248,254,20,102,78 
SYMBOL 229,6,6,38,78,138,21,39,197 
SYMBOL 230,0,0,1,3,7,15,15,31 
SYMBOL 231,63,63,127,255,3,3,3,0 
SYMBOL 232,06,06,8,128,192,224,224,240 
SYMBOL 233,248, 248,252,254,128,128,128,0 
SYMBOL 234,3,3,1,7,15,11,19,11 
SYMBOL 235,6,3,2,2,3,2,81,10 
SYMBOL 236,128,128,0,192,224,168,192,168 
SYMBOL 237,148,168,212,168,192,128,08,8 
SYMBOL 238,7,31,7,7,3,31,63,103 
SYMBOL 239,127,55,7,6,6,6,6,7 
SYMBOL 240,192,240,64,192,128,240,248,216 
SYMBOL 241,223,204,192,192,192,192,192,249 
SYMBOL 242,63,127,240,127,63,3,3,3 
SYMBOL 243,3,3,3,31,3,15,3,31 
SYMBOL 244,252,254,15,254,252,192,192,192 
SYMBOL 245,192,192,192,192,192,192,192,192 
SYMBOL 246,0,0,8,15,63,115,247,231 
SYMBOL 247,255,255,255,127,31,7,0,0 
SYMBOL 248,8,30,55,34,240,252,254,255 
SYMBOL 249,255,255,255,255,254,248,8,0 
SYMBOL 258,12,14,27,53,186, 213,178 213 


SYMBOL 251,107,53,26,14,4,0,0,0 
SYMBOL 252,0,0,8,128,192,96,240,152 
SYMBOL 253,12,6,3,1,0,0,0,0 

FOR I=8 TO 21:READ NS(I):NEXT I 

FOR I=1 TO 9:READ X(I),Y(I):NEXT I 


RETURN 

DATA ROBOTS, MACHINES, HORLOGES, PIECES, TELEPHON 
ARTES, MURS 

DATA DOMINOS,DES, ARBRES, CERISES,TOURS EIFFEL, 
HES, CARTES DE FRANCE 

DATA POIRES, CHINOIS, SAPINS, SKIEURS, COW-BOYS 
DATA CLEFS, POMMES, DRAPEAUX 

DATA 8,8,12,8,10,3,6,3,4,8,14,3,10,13,6,13,14 
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LE PROGRAMME 


Lignes 39 à 199 : initialisation 


L'appel du sous-programme en 309 place dans le tableau NS) les 
noms des objets qui peuvent apparaître à l'écran, définit les carac- 
tères graphiques de ces objets et leurs coordonnées sur l'écran 
(tableaux X et Y). 


La variable AS contient un LINEFEED (saut de ligne) suivi de 2 
BACKSPACE (recul arrière d'un caractère) ce qui permet d'afficher 
4 caractères graphiques à un point donné de l'écran avec une seule 
instruction LOCATE. 


On place dans les variables N et | des nombres aléatoires pour 
définir respectivement le nombre et le type de caractères gra- 
phiques à afficher. 

Lignes 119 à 269 : le jeu 

Après l'affichage des N dessins, on saisit la réponse du joueur 


dans la variable R$. Si la réponse est juste, on affiche le message 
“BRAVO”, dans le cas contraire le message “NON !”. 


LISTE DES VARIABLES : 


A$ chaîne de caractères : 1 LF + 2BS 
| numéro de l'objet à afficher 

J indice de boucle FOR/NEXT 

N nombre d'objets à afficher 

NS() noms des objets 

R valeur décimale de R$ 

R$ réponse du joueur 


X{) et Y(} coordonnées des objets sur l'écran 
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TABLES DE MULTIPLICATION 


Attention : programme réservé aux moins de dix ans ! 


Vos enfants vont enfin pouvoir réviser tranquillement leurs tables 
de multiplication. 


L'ordinateur demande juste la table que vous voulez obtenir (jus- 
qu'à 22). 


Aucun doute, AMSTRAD ne se trompe jamais |! 








Cv NonhunNr 
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TABLES DE MULTIPLICATION 


DEBUT 







Entrer le 
numéro de 
la table 












Table < 1 
ou > 22? 













Afficher la 
multiplication 
table x | 










Afficher 
le cadre 


Afficher le 
numéro de 
la table 





FIN 
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10 REM TABLES DE MULTIPLICATION 

20 REM -------------------------------- 
30 MODE 8:INK @,1:INK 1,24:BORDER 1 

40 LOCATE 3,18:PRINT"QUELLE TABLE ‘; 

50 INPUT T$ 

68 T=VAL(TS) 

70 IF T<1 OR T>22 THEN 30 


218 FOR I=1 TO 12 
228 PRINT 
238 PRINT TAB(8); 


240 PRINT USING'## x";l; 
250 PRINT USING"## =";T; 
268 PRINT USING"###"; IxT 


270 NEXT I 

280 MOVE 200,0:DRAWR 488,8:DRAWR 0,399:DRAWR -480, 
8: DRAWR 0,-399 

298 LOCATE 1,13:PRINT "TABLE" 
308 PRINT"DE "; 

318 PRINT USING"##";T 

320 MOVE 06,228:DRAWR 150,8 

330 DRAWR 50,-25:DRAWR -58,-26 
348 DRAWR -150,8:DRAWR 6,51 

350 IF INKEYSCCHRS(13) THEN 358 
368 RUN 
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LE PROGRAMME 


Lignes 39 à 79 : saisie 

Ces lignes saisissent la table de votre choix. La ligne 79 vérifie que 
votre réponse est comprise entre 1 et 22. 

Lignes 299 à 369 : édition de la table 


On affiche avec une boucle FOR/NEXT les 12 premières multipli- 
cations de la table choisie. 


Les lignes 290 à 349 dessinent le cadre et le numéro de la table. 


LISTE DES VARIABLES : 
| indice de boucle FOR/NEXT 


T numéro de la table 
T$ réponse du joueur 
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LES QUATRE OPERATIONS 


Vous n'êtes pas très fort en calcul mental ? AMSTRAD vous sera 
d'un grand secours. 


I| vous propose une des quatre opérations composées de nombres 
tirés au hasard. Vous devez entrer votre solution comme si vous 
l'écriviez sur une feuille de papier (de gauche à droite, les chiffres 
se décalent automatiquement sur l'écran). 


Si vous avez du mal à résoudre ces problèmes, reportez-vous au 
programme précédent | 





DEVIS IC 
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LES QUATRE OPERATIONS 






DEBUT 





Initialisation 
des noms et signes 
des opérations 










O,AetB = 
nb aléatoire 





Calculer résultat 










Afficher 
l'opération 






la réponse 
+ A$ 











Réponse 
R$=R? 











Réponse 
R$>R? 









Musique 
« Gagné » 


Musique 
« Perdu » 
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10 REM LES QUATRE OPERATIONS 
eu 


30 0$(1)="ADDITION":0$(2)="SOUSTRACTION" 
48 He "MULTIPLICATION" :0$(4)="DIVISION" 
50 SS(L)=r+t:S8(2)s" : 

68 S$(3)= 

76 MODE © 

80 RANDOMIZE TIME 

96 CLS 

199 O=INT(RND(1)*4)+1 

118 A=INT(RND(1)#99)+1 

120 B=INT(RND(1)#99)+1 

130 IF 0>2 AND B>9 THEN 128 

148 IF O0=4 AND A/B<>INT(A/B) THEN 118 
150 IF O=2 AND A<B THEN 110 

168 ON O GOTO 178,180,190,200 

170 R=A+B:GOTO 398 

180 R=A-B:GOTO 308 

198 R=A%B:GOTO 300 

288 R=A/B:GOTO 480 

289 REM ------------"------ 
299 REM OPERATIONS + - + 

388 PRINT TAB(18-LEN(O$(O0))/2); 0$(0) 
318 LOCATE 11,9:PRINT USING" #4"; 

328 LOCATE 7,12:PRINT S$(0); ’. 

338 PRINT USING"##";B 

340 LOCATE 7,15:PRINT STRINGS(6,154) 
350 LOCATE 7,18:PRINT"= " 

360 GOTO 500 

380 REM -------------- 
399 REM DIVISION 

400 PRINT TAB(6);0$(0) 

418 LOCATE 6,12:PRINT USING"## ";A,B 
420 FOR I=18 TO 20 

438 LOCATE 9,I:PRINT CHR$(149) 


448 NEXT I 

450 LOCATE 9,15:PRINT CHR$(151); STRINGS(3,154) 
480 REM ------------------------------- 

498 REM SAISIE REPONSE 

500 R$="" 


519 AS$=INKEYS:IF A$="" THEN 518 

520 IF A$<"0" OR A$>"9" THEN 518 

530 R$=R$S+AS 

540 IF LEN(R$S)>LEN(STR$S(R))-1 THEN 708 
550 LOCATE 10,18:PRINT USING"###"; VAL(RS) 
560 IF VAL(RS$)=R THEN 718 

97/6 IF VAL(RS$S)>R THEN 708 

580 GOTO 518 

GBQ''REM: <== ses esse see 
698 REM GAGNE ET PERDU 

708 FOR I=1 TO 1880 STEP 3:SOUND 1,1I,1:NEXT:GOTO 7 


719 FOR I-880@ TO 1 STEP -3:SOUND 1,1I,1:NEXT 
720 LOCATE 10,18:PRINT USING"###";R 

730 IF INKEY$S<>CHR$(13) THEN 738 

748 GOTO 98 


AMSTRAD EN FAMILLE 





75 


LE PROGRAMME 


Lignes 39 à 459 : initialisation et opérations 


On place dans le tableau O${) le nom des quatre opérations et dans 
le tableau S$() leurs signes. 


La variable O définissant le type d'opération à effectuer (nombre 
aléatoire) et À et B les opérandes, on les affiche après le calcul du 
résultat R (lignes 179 à 200). 


Lignes 599 à 749 : saisie réponse et résultats 


La ligne 510 saisit votre réponse et la ligne 550 l'affiche par un 
PRINT USING. 


Si votre réponse est juste, la ligne 700 envoie une gamme mon- 
tante, sinon la ligne 719 envoie une gamme descendante. 


LISTE DES VARIABLES : 


A première opérande 

AS dernière touche appuyée 

B deuxième opérande 

| indice de boucle FOR/NEXT 
O opération choisie 

O$() noms des opérations 

R résultat de l'opération 

RS réponse du joueur 

S$() signes des opérations 
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QUESTIONS/REPONSES 


Le jeu des questions-réponses est composé de deux programmes. 
Le premier permet de constituer un fichier de mots liés par une 
question. L'exemple ci-dessous est celui des réalisateurs de ciné- 
ma. || demande en priorité le nom du fichier. Pour notre exemple 
nous avons répondu “CINEMA” (seize lettres maximum). 


Si vous l'utilisez pour la première fois, AMSTRAD demande la 
question (toujours pour notre exemple nous avons répondu “Quel 
est le réalisateur du film”). 


Puis le programme propose un menu de trois options : 


1 - SAISIE : vous devez donner le mot de la question suivi de la 
réponse juste, par exemple “Pickpocket” et “Bresson”. Quand 
vous utiliserez le deuxième programme, il demandera alors : 
“Quel est le réalisateur de Pickpocket”, et la réponse devra être 
“Bresson”. 


2 — LISTING : liste sur l'écran la totalité du fichier. Vous pouvez 
arrêter cette liste en appuyant sur n'importe quelle touche (idem 
pour continuer). 


3 - SAUVEGARDE : sauve le fichier sur cassette. 


Le deuxième programme est le jeu proprement dit. || demande 
comme le premier le nom du fichier. Puis il propose au hasard une 
des X questions du fichier. 


Quand vous désirez arrêter, tapez le mot “FIN” comme réponse, 
les résultats s'affichent automatiquement. 


Ces deux programmes permettent de créer une multitude de fi- 
chiers dans des domaines très variés : littérature, peinture, his- 
toire, géographie, musique, sport, animaux, plantes, langues 
étrangères, informatique, etc., et bien d'autres que vous ne man- 
querez pas de découvrir. 
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CREATION QUESTIONS/REPONSES 


DEBUT 











Entrer le 
nom du 
fichier 
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utilisation 











Entrer 
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question 







Lire le 
fichier sur 
cassette 















Afficher 


























Ecrire le 
fichier sur 
cassette 


Afficher le 
fichier 
intégralement 







Entrer la 
reponse 
correspondante 
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18 REM CREATION FICHIER QUESTIONS/REPONSES 

DOUREM: 22 -e ies  utes 

306 DIM Q$(10008,2) 

48 ES=STRINGS(39,32)+CHRS(13) 

59 MODE 1:INK 06,8:INK 1,15:PAPER @:PEN 1:BORDER @ 
60 INPUT"NOM DU FICHIER ";N$ 

76 IF LEN(NS)>15 THEN 68 

80 INPUT"PREMIERE UTILISATION (O/N)";RS 

99 IF R$="O" THEN 178 

188 CLS:PRINT"METTEZ LE DATACORDER EN LECTURE" 
119 OPENIN "!"+NS 

128 INPUT#9,0Q$ 

138 IF EOF THEN CLOSEIN:GOTO 266 

148 N=N+1 

159 INPUT#9,QS(N,1),Q$S(N,2) 

168 GOTO 138 

1/8 INPUT"LA QUESTION ";Q$ 

180 REM “2 und eee 

190 REM MENU 

2068 CLS:PRINT TAB(18);"MENU": PRINT 

218 PRINT TAB(13);"1 SAISIE 1":PRINT TAB(13);" 
2 LISTING 2":PRINT TAB(13);"3 SAUVEGARDE 3" 
226 PRINT:PRINT TAB(14); "VOTRE CHOIX ?"; 

230 RS=INKEYS:IF RS$="" THEN 230 

248 R=VAL(RS):IF R<1 OR R>3 THEN 230 

258 ON R GOTO 308,400, 508 

280 REM -------------------2---"-“s0 

290 REM SAISIE 

308 CLS:PRINT TAB(18); "SAISIE D'UNE QUESTION":PRIN 


T 

318 PRINT:PRINT:PRINT"'QUESTION: ";Q$ 

320 LOCATE 18,18:PRINT E$;"*MOT PROPOSE : ";:LINE I 
NPUT A$ 


330 IF AS$="" THEN 200 

348 N=N+1:QS(N,1)=A$ 

358 LOCATE 18,12:PRINT ES; "REPONSE CINE 
NPUT QS(N,2) 

360 GOTO 300 

380 REM ------"""s-cmessseñtsse 

398 REM LISTING 

488 CLS 

418 FOR I=1 TO N 

420 PRINT QS(1,1);" --> ";Q$(I,2) 

430 IF INKEYS<>""" THEN WHILE INKEYS="":WEND 
448 NEXT I 

450 IF INKEYS="" THEN 458 

468 GOTO 200 

ADO REM == RM ESS sr eee ose 

498 REM SAUVEGARDE 

508 CLS:PRINT"APPUYEZ SUR ENTER QUAND LE DATACORDE 
R EST PRET POUR L'ENREGISTREMENT" 

510 LINE INPUT RS 

520 OPENOUT "!"+NS 

530 PRINT#9,0Q$ 

549 FOR I=1 TO N 

558 PRINT#9,Q$(1,1):;",":QS(I,2) 

560 NEXT I 

578 CLOSEOUT 

588 CLS:PRINT"AU REVOIR !" 

590 END 
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PROGRAMME “CREATION QUESTIONS/REPONSES" 
Lignes 39 à 179 : initialisation 


Le programme demande en priorité le nom du fichier puisque l'on 
peut créer plusieurs jeux “Questions/réponses”. 


Si ce n’est pas la première utilisation, on lit sur la cassette le fichier 
déjà créé antérieurement, sinon l'utilisateur doit donner la phrase 
qui correspond à la question. 

Lignes 299 à 259 : menu 


Ces lignes ventilent sur le reste du programme suivant le choix de 
l'utilisateur. 


Lignes 399 à 369 : saisie 


Le programme saisit le mot proposé puis la réponse. Si le mot 
proposé est une chaîne vide (A$=""), on retourne au menu. 


Lignes 499 à 469 : listing 

On affiche à l'écran par une boucle FOR/NEXT l'intégralité du fi- 
chier. La ligne 430 teste le clavier pour permettre à l'utilisateur 
d'arrêter l'édition à son gré. 

Lignes 509 à 599 : sauvegarde 

Ces lignes sauvent sur cassette le fichier dès qu'une touche a été 


appuyée. 


LISTE DES VARIABLES : 


AS dernier mot proposé 

E$ caractères d'effacement d'une ligne 

I indice de boucle FOR/NEXT 

N nombre de questions dans le fichier 

NS nom du fichier 

a$ la question 

Q$,) liste des mots proposés et des réponses 
R valeur numérique de R$ 

RS choix de l'utilisateur 
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19 REM JEU QUESTIONS/REPONSES 

DO REM 2 een u-nDe nee 

30 DIM Q$(1888,2) 

48 ES=STRING5(39,32)+CHR$(13) 

50 MODE 1:INK @,8:INK 1,15:PAPER @:PEN 1:BORDER @ 
68 INPUT"NOM DU FICHIER ";NS$ 

78 IF LEN(NS)>15 THEN 60 

88 CLS:PRINT"METTEZ LE DATACORDER EN LECTURE" 

98 OPENIN "!"+NS 

188 INPUT#9,Q$ 

118 IF EOF THEN CLOSEIN:GOTO 268 

128 N=N+1 

138 INPUT#9,QS(N,1),QS(N,2) 

148 GOTO 118 

186 REM -----------.-umsneisu 

198 REM QUESTIONS 

288 CLS 

218 Q=INT(RND(1)#N)+1 

228 LOCATE 1,186:PRINT Q$;" ";Q 
230 LOCATE 1,14:LINE INPUT"REP 
248 IF R$="FIN" THEN 408 

250 P=P+1 

268 IF R$=Q$(Q,2) THEN 298 

276 LOCATE 1,14:PRINT ES; "REPONSE :";Q$(Q,2) 
288 GOTO 318 

298 LOCATE 1,18:PRINT"REPONSE JUSTE" 

308 B=B+1 

319 IF INKEYS="" THEN 310 

328 GOTO 268 

380 REM -------------mmmmse 

390 REM FIN 

488 CLS 

418 LOCATE 8,106:PRINT B; "REPONSES JUSTE SUR";P 
428 PRINT: PRINT: PRINT: END 


$(Q,1)5" 2?" 
ONSE :";RS 





N EC CZ © 


© Z 


PI 
UN 
CA 
HO 
MO 
LE 
JE 
LE 
LA 
A 

UN 
ZA 
LE 
LA 
LE 
AN 
LA 
AP 
LA 
LA 
KA 


MOXOTDHOZOME OTUIX O0 DITS 1e 


æ 














AMSTRAD EN FAMILLE 


LE PROGRAMME “JEU QUESTIONS/REPONSES" 

Lignes 39 à 149 : lecture du fichier 

Après la saisie du nom, le programme lit le fichier sur la cassette. 
Lignes 299 à 329 : question 


Le programme propose la question pointée par la variable Q (nom- 
bre aléatoire). 


La ligne 239 saisit la réponse du joueur. S'il s'agit du mot “FIN”, le 
programme saute aux lignes 490 pour la fin du jeu. 


En cas de réponse juste, la ligne 300 incrémente le nombre de 
points B. 


Lignes 499 à 429 : fin 


Ces lignes affichent le nombre de questions posées et le nombre 
de réponses justes. 


LISTE DES VARIABLES : 


B nombre de réponses justes 

E$ caractères d'effacement d'une ligne 

| indice de boucle FOR/NEXT 

N nombre de questions dans le fichier 

N$ nom du fichier 

P nombre de questions posées 

Q pointe la prochaine question 

Q$ la question 

O$ (|) liste des mots proposés et des réponses 
R réponse du joueur 
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CONJUGAISONS 


Vos enfants ont-ils du mal avec leurs conjugaisons ? 


Pour les aider, voilà un programme qui leur permettra d'obtenir le 
listing des conjugaisons des verbes réguliers des deux premiers 
groupes pour les quatre premiers temps. 


Pour cela, il suffit de donner à votre AMSTRAD le verbe désiré à 
l'infinitif pour obtenir sa conjugaison au présent, à l'imparfait, au 
passé simple et au futur simple. 


Si par erreur un verbe d'un autre groupe est demandé, l'ordinateur 
répond “verbe inconnu”. 





UERBE MANGER 
PASSE SIMPLE 


on 
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19 REM CONJUGAISONS 

DO RES Srermocermres Dee dre 

38 DIM A$(56) 

40 GOSUB 408 

59 MODE 1:INK @,1:INK 1,24:BORDER 1 

68 INPUT"VERBE "; VS 

70 IF VS="" THEN 60 

88 IF RIGHTS(VS,2)="ER" THEN G=1:GOT0 168 

99 IF RIGHTS(VS,2)="IR" THEN G=2 ELSE PRINT"VERBE 
INCONNU ...":GOTO 68 

100 ZS=LEFTS(VS,1):A$(1)="JE" 

118 IF ZS="A" OR Z$="E" OR Z$="I" OR ZS="0" OR ZS= 
"U" OR ZS$="Y" THEN AS$(1)="J'" 

126 CLS:PRINT TAB(18);"VERBE ";VS 

138 VS=LEFTS(VS,LEN(VS)-2): VIS=LEFTS(VS,LEN(VS)-1) 
140 IF G=2 THEN U$="I" ELSE US="" 

158 X=1:Y=3 

169 FOR T=1 TO 4 

178 LOCATE X,Y:PRINT TS(T):Y=Y+1 

180 P=Gx6+T#12-9 

198 FOR I=1 TO 8 

200 Y=Y+1:LOCATE X,Y 

218 XS=LEFTS(AS(P),1) 

226 IF G=1 AND RIGHT$S(VS,1)="G" AND (X$="A" OR X5- 


"O") THEN PRINT A$(I);" ";VS;"E";AS(P):GOTO 268 
230 IF G=1 AND T=1 AND RIGHTS(VS,1)="Y" AND (I<5 0 
R 1>6) THEN PRINT A$(I);" ";V1$;"I";AS$(P):GOTO 268 


246 IF G=1 AND T=4 AND RIGHTS(VS$,1)="Y" THEN PRINT 
A$S(I);" ";V1$S; "I"; AS(P):GOTO 268 

250 PRINT A$S(I);" ";VS;US$;AS(P) 

260 IF I<>3 AND I<>7 THEN P=P+1 

278 NEXT I 

280 Y=Y+3:IF Y>24 THEN X=X+20:Y=3 

298 NEXT T 

300 IF INKEYS<>CHRS(13) THEN 308 

318 GOTO 58 

3880 REM ------------------------------- 

398 REM LECTURE DES DATAS 

4008 FOR I=1 TO 4 

418 READ T${(I) 

42@ NEXT I 

430 FOR I=1 TO 56 

448 READ AS(I) 

4508 NEXT I 

460 RETURN 

470 DATA PRESENT,IMPARFAIT,PASSE SIMPLE, FUTUR SIMP 
LE 

480 DATA JE,TU,IL,ELLE, NOUS, VOUS, ILS,ELLES 

490 DATA E,ES,E,ONS,EZ,ENT 

500 DATA S,S,T,SSONS,SSEZ, SSENT 

510 DATA AIS,AIS,AIT,IONS,IEZ,AIENT 

528 DATA SSAIS,SSAIS, SSAIT,SSIONS,SSIEZ, SSAIENT 
530 DATA AI,AS,A,AMES,ATES,ERENT 

540 DATA S,S,T,MES,TES,RENI 

550 DATA ERAI,ERAS,ERA,ERONS,EREZ, ERONT 

560 DATA RAI,RAS,RA,RONS,REZ,RONT 
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LE PROGRAMME 


Lignes 39 à 119 : saisie du verbe 


Le verbe à étudier est saisi dans la variable V$. Si la terminaison à 
l'infinitif est différente de ER ou IR, on affiche le message “Verbe 
inconnu”. 


Dans le cas où la première lettre de celui-ci est une voyelle, on 
remplace le JE de A$(1) par J’. 


Lignes 129 à 319 : édition 


Les verbes en YER prennent soit un | soit un Ÿ dans leurs terminai- 
sons, et cela suivant le temps étudié. On place donc, dans la varia- 
ble V1$, le verbe à éditer en enlevant le dernier caractère. Les verbes 
du deuxième groupe (G=2) comportant toujours un | pour premier 
caractère de leur terminaison, on place le caractère | dans la varia- 
ble US. 


On édite avec une boucle FOR/NEXT (variable T) le verbe au pré- 
sent, à l'imparfait, au passé simple et au futur simple. Pour chaque 
temps, on calcule le pointeur P du tableau des terminaisons (ligne 
180). 


La ligne 220 tient compte des verbes en GER. On ajoute donc la 
lettre E devant la terminaison dans le cas où un “O” ou un “A” 
suivent le G (exemple : mangons — mangeons). 

Les lignes 239 et 249 tiennent compte, elles, des verbes en YER. On 
utilise à ce moment-là la variable V1$ citée plus haut. 

Lignes 499 à 569 : lecture des DATAs 

On place dans le tableau T$ la liste des pronoms et dans A$ celle 


des terminaisons qui se trouvent dans les DATAs des lignes 479 à 
560. 
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LISTE DES VARIABLES : 


A$() 
G 
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liste des terminaisons 

groupe du verbe à étudier 

indice de boucle FOR/NEXT 

pointeur du tableau des terminaisons 
indice de boucle FOR/NEXT (temps à éditer) 
liste des pronoms 

U$="l" si verbe du deuxième groupe 
verbe à éditer 

verbe à éditer sans le dernier caractère 
contient le 1°’ caractère de la terminaison 
premier caractère du verbe à éditer 
coordonnées sur l'écran du verbe à éditer 
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SUITES LOGIQUES 


Sans vouloir se comparer à un test poussé de QI, ce programme 
de suites logiques peut constituer un bon entraînement au raison- 
nement. 


Il consiste à trouver le nombre découlant d'une suite. Pour cela, il 
propose trois nombres dans un ordre donné, obéissant à un algo- 
rythme utilisant l'addition, la soustraction ou la multiplication. 


Exemple : suite 1, 14, 92 


Vous devez donner votre première solution. Si elle est fausse, 
AMSTRAD vous donne le quatrième élément de la suite et vous 
demande votre deuxième solution. Si elle est encore fausse, l'or- 
dinateur affiche la “bonne solution”. 


Le jeu a trois niveaux de difficulté : il commence au niveau 1 et 
passe directement aux niveaux 2 puis 3 si votre première solution 
est bonne. 


Si vous ne trouvez le bon résultat qu'au deuxième coup, le niveau 
de jeu ne change pas. Dans le cas où vous ne trouvez pas du tout 
la solution, le jeu redescendra automatiquement au niveau précé- 
dent. 


Je n'explique pas ici la méthode utilisée pour programmer la suite 
logique ; cela rendrait le jeu trop facile ; les tricheurs peuvent tou- 
jours décortiquer le programme ! 
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SUITES LOGIQUES 


Initialisation 
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92 


10 

28 

30 

48 

50 

80 

98 

100 
110 
120 
130 
180 
190 
208 
210 
220 
230 
240 
288 
290 
300 
318 
320 
330 
348 
350 
368 
370 
380 
480 
490 
508 
510 
528 
530 
548 
558 
568 
578 
5808 
598 
680 
610 
620 
630 
640 
680 
690 
700 
718 
720 
730 
748 
750 
780 
798 
800 
810 
828 
830 
848 


REM SUITES LOGIQUES 
REM -------------------------------- 
MODE 1:INK 86,8:INK 1,15:BORDER 8 
N=1:A(1)=1 
RANDOMIZE TIME 
REM ---------- 
REM LE JEU 
I=INT(RND(1})#10 
K=INT(RND(1)#10 
E=E+1 
ON N GOTO 218,2008,308 
REM ------------------------------- 
REM NIVEAU 1 & 2 
IF K>5 THEN J=-J 
FOR U=2 TO 5 
A(U)=A(U-1)#1+9 
NEXT U 
GOTO 588 
REM ------------------------------- 
REM NIVEAU 3 
IF K>5 THEN J=-J 
IF L>5 THEN 368 
FOR U=2 TO 5 
A(U)=A(U-1)#1+)J 
NEXT U 
GOTO 588 
FOR U=2 TO 5 
A(U)=(A(U-1)+J)#I 
NEXT U 
REM ---------------- 
REM LA SUITE 
FOR U=1 TO 2 
CLS:PRINT"PARTIE:";E, "NIVEAU: ";N:PRINT 
FOR V=1 TO 2+Ù 
PRINT"'LE CHIFFRE";V;"EST ";A(V) 
NEXT V:PRINT 
PRINT'LE CHIFFRE"; 3+U; "EST ";:INPUT S 
IF S=A(3+U) THEN 700 
NEXT U 
CLS:PRINT"'LA SOLUTION: ":PRINT 
FOR U=1 TO 5 
PRINT U;"=",A(U) 
NEXT U 
P=P-1-N 
IF N>1 THEN N=N-i 
GOTO 888 
REM ------------------------------- 
REM GAGNE 
PRINT:PRINT"VOUS AVEZ TROUVE A L'ESSAI";U 
IF U=2 THEN 758 
P=P+1+N 
IF N<3 THEN N=N+1 
GOTO 808 
P=P+N 
REM ------------------- 
REM FIN 
PRINT 
PRINT'POINTS:";P,"NB DE PARTIES:";E€ 
PRINT:PRINT"VOUS ETES MAINTENANT AU NIVEAU';N 
IF INKEYS="" THEN 830 
GOTO 188 


+ + 


1: J=INT (RND 
1:L=INT(RND 
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LE PROGRAMME 


Lignes 39 à 139 : initialisation 


La suite logique étant placée dans le tableau A(1) à A(5), A() est 
mis dès le début du jeu à 1. 


Les lignes 100 et 110 placent dans les variables |, J, K et L quatre 
nombres aléatoires qui détermineront la suite logique. 


La ligne 139 renvoie sur les calculs de suites, suivant le niveau de 
jeu (variable N). 

Lignes 299 à 389 : calcul de la suite logique 

Ces lignes calculent pour chaque niveau respectif la suite logique 
correspondante (5 chiffres au total). Puis chacune de ces lignes 
renvoie en 500 pour afficher les trois premiers chiffres. 

Lignes 599 à 619 : le jeu 


Le programme saisit vos deux réponses par une boucle FOR/NEXT 
(variable U). 


Si votre proposition est bonne, la ligne 560, après un test, envoie 
en ligne 700 pour un message de félicitations. 


Dans le cas contraire, la même suite est affichée avec un chiffre 
supplémentaire. 


Si vous n'avez pas trouvé, les lignes 580 à 619 affichent la bonne 
solution. 

Lignes 629 à 849 : gagné-perdu 

Les lignes 629 à 759 calculent votre nombre de points suivant le 
niveau et le nombre d'essais qu'il vous a fallu pour trouver la bonne 
solution. Si vous n'avez pas trouvé du tout, votre capital diminue 


de la même manière. 


Les lignes 800 à 849 affichent les résultats de la dernière partie. 
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LISTE DES VARIABLES : 


A) 
E 


contient la suite logique 
nombre de parties 


L, J,KetL nombres aléatoires pour le calcul de la suite 


<COTz 


niveau du jeu 

nombre de points 

solution proposée 

indice de boucle FOR/NEXT 
indice de boucle FOR/NEXT 














5 ? 1037 
UOUS AUEZ TROUUVUE À L'ESSAI & 
POINTS: 8 NB DE PARTIES: 3 
UOUS ETES MAINTENANT AU NIVEAU 3 
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THEME 3 
CUISINE ET TRICOT 
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FICHIER DE RECETTES 


Comment préparer vos tournedos pour ce soir ? Quelle recette 
choisir pour utiliser les tomates de votre jardin ? Le mieux est de 
demander à votre AMSTRAD. 


Le programme propose les options suivantes : 


# SAISIE : vous devez entrer tous les renseignements d'une 
recette : nom, ingrédients et préparation. 


Si vous ne voulez plus entrer de recette, tapez uniquement sur 
“ENTER” à la question “NOM:”. 


# MODIFICATION : si vous désirez modifier une recette, en- 
trez son numéro (si vous avez oublié ce numéro, utilisez l'op- 
tion 4 ou 5). Le programme vous demande alors le type de 
donnée que vous voulez modifier. Si vous n'avez plus de mo- 
dification à apporter, tapez “O” en réponse à la question “NU- 
MERO DE LA RECETTE:”. 


# SUPPRESSION : si vous désirez enlever une recette du fi- 
chier, cette option permet de la supprimer définitivement. 
Comme pour la modification, tapez “Q" pour revenir au menu. 


# RECHERCHE : cette partie recherche le mot que vous lui 
donnez dans une des trois données d'une recette. Cela vous 
permet de retrouver les recettes dont le nom contient le mot 
“Bœuf”, ou les recettes utilisant comme ingrédient des 
“Tomates”. Il n'est pas nécessaire de donner un nom entier : 
le mot “Bœuf” suffit à retrouver la recette du “Bœuf en Daube”, 
du “Bœuf Bourguignon” ou du “Bœuf à la Flamande”. 


# LISTING : édite simplement sur l'écran le fichier dans son 
intégralité. 


# SAUVEGARDE : le programme sauve le fichier sur cassette. 
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FICHIER DE RECETTES 





DEBUT 


Première 
utilisation 
? 







out 






non 


Lire le 
fichier sur 
cassette 

















Afficher 
le 
menu 







Suivant réponse R 






Ecrire le 
fichier 
sur cassette 


Afficher le 



































Entrer Entrer le Entrer n° Entrer la 
ai n° de la de la donnée fichier 
nouvelle recette recette à rechercher intégralement 





recette 


Afficher 
les 
recettes 
concernées 












Afficher 
la 
recette 















Entrer les 
nouvelles 
















données 
Modifier le 
fichier a 
Supprimer 
la recette 
du fichier 
En | | 
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REM FICHIER DE RECETTES 

REM esse ihaonduesseceucess ss" 
DIM D$(3,188) 
L$(1)= "NOM": LS(2)=#"INGREDIENTS":L9(3)="RECETTE" 
MODE 1:INK @,0:INK 1,15:BORDER @ 
INPUT'PREMIERE UTILISATION (O/N)";R$ 

IF R$="0" THEN 2080 
CLS: FNPPATEES LE DATACORDER EN LECTURE" 
OPENIN "!RECETT 

INPUT#9,N 

FOR I=i TO N 

FOR J=1 TO 3 

LINE INPUT#9,D$(J,1I) 


CLOSEIN 


CLS 

PRINT'NB DE RECETTES:";N:PRINT:PRINT 
PRINT"1 SAISIE" 

PRINT"2 MODIFICATION" 

PRINT"3 SUPPRESSION" 

PRINT"4 RECHERCHE" 

PRINT'"S LISTING" 

PRINT"6 SAUVEGARDE" 

PRINT:PRINT"VOTRE CHOIX ?"; 
R$=INKEYS:IF R$="" THEN 290 
R=VAL(RS):IF R<1 OR R>6 THEN 298 

ON R GOTO 488,900,1188,600,1308,1500 
REM SAISIE 

CLS:PRINT'SAISIE D'UNE RECETTE":PRINT 
IF N=100 THEN PRINT"'FICHIER PLEIN*;:LINE INPUT 
: GOTO 208 

N=N+i 

FOR I=1 TO 3 


PRINT LS(I1);":";:LINE INPUT D$(I,N) 
1F I=1 AND DS(1,N)="" THEN N=N-1:GOTO 200 
NEXT I 

GOTO 468 

REM RECHERCHE 


CLS:F=0 

PRINT'RECHERCHE PAR :" 

FOR 1=1 TO 3:PRINT I;L$(I):NEXT 
PRINT:PRINT"QUEL TYPE DE DONNEE ?":PRINT 
R$=INKEYS:IF R$="" THEN 640 

R=VAL(RS):IF R<1 OR R>3 THEN 200 

PRINT L$(R);":";:LINE INPUT D$:PRINT 

FOR I=1 TO N 

IF INSTR(DS$S(R,I1),D$)=8 THEN 740 

F=1: PRINT USING"### “;I;:PRINT"'#";D$S(1,1); "+ 
FOR J=2 TO 3 

FOR K=1 TO LEN(D$(J,1)) STEP 32 

PRINT* "; MID$S(DS$(J,1I),K,32) 

NEXT K,J:PRINT 

NEXT I:PRINT 

IF F=0 THEN PRINT"'JE N'AI RIEN TROUVE" 
IF INKEY$="" THEN 768 ELSE 688 

REM ------------------------------- 

REM MODIFICATION 
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——— ro 


908 CLS:PRINT*MODIFICATION":PRINT 

919 INPUT"NUMERO DE LA RECETTE"; NU 

920 IF NU<1 OR NU>N THEN 288 

9306 FOR I=1 TO 3 

948 PRINT I;LS$S{I});":";DS$S(I,NU) 

958 NEXT I 

968 PRINT:INPUT"MODIFICATION DU*;R 

970 IF R<1 OR R>3 THEN 208 

980 PRINT L$(R);":";:LINE INPUT DS$(R, NU) 
998 GOTO 9680 

1080 REM: -==--2---=->-sssessesssessss 
1098 REM SUPPRESSION 

1108 CLS:PRINT"'SUPPRESSION":PRINT 

1118 INPUT'NUMERO DE LA RECETTE"; NU 

1120 IF NU<1 OR NU>N THEN 208 

1130 PRINT 

1148 FOR I=1 TO 3 

1156 PRINT I;LS$S(I);":";DS$(I,NU) 

1160 NEXT I:PRINT 

1170 INPUT"VOUS ETES SUR DE SUPPRIMER 
CETTE RECETTE";RS 

1180 IF R$<>"O" THEN 1188 

1198 N=N-1 

1266 FOR I=NU TO N 

1210 FOR J=1 TO 3 

1228 D$(J,1)=D$(J,I+1) 

1230 NEXT J,I 

1248 GOTO 1108 

1280. REM ---------------mesessms-sssse 

1298 REM LISTING 

13800 CLS:F-=08 

1318 FOR I=1 TO N 

13206 PRINT USING"### ";I;:PRINT"#";D$(1,1);"#":F=F 

+1 

1338 FOR J=2 TO 3 

1348 FOR K=1 TO LEN(DS(J,I)) STEP 32 

1358 PRINT"  ";MIDS$(D$(J,1),K,32):F=F+1 

1360 NEXT K,J:PRINT:F=F+1 

1370 IF F>15 THEN PRINT:PRINT"'APPUYEZ SUR ENTER PO 

UR LA SUITE";:LINE INPUT RS$S:CLS:F-=0 


1380 NEXT I 

1398 PRINT: PRINT"APPUYEZ SUR UNE TOUCHE POUR LE ME 
NU"; 

1460 IF INKEYS="" THEN 1480 ELSE 208 

1489 REM -----------------"""""" " " 


1490 REM SAUVEGARDE 

1508 CLS:PRINT"APPUYEZ SUR ENTER QUAND LE DATACORD 
ER EST PRET POUR L'ENREGISTREMENT" 
1518 LINE INPUT R$ 

1528 OPENOUT "!RECETTE" 

1538 PRINT#9,N 

1548 FOR I=1 TO N 

1558 FOR J=1 TO 3 

1568 PRINT#9,D$(J,I) 

1578 NEXT J,I 

1588 CLOSEOUT 

1598 CLS:PRINT"A LA PROCHAINE !" 
1688 END 
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LE PROGRAMME 


Lignes 39 à 159 : initialisation 


On place dans le tableau L${) les libellés des trois données néces- 
saires à l'exploitation du fichier. 


Si ce n'est pas la première utilisation, on lit sur la cassette le fichier 
déjà créé antérieurement. 

Lignes 299 à 319 : menu 

Ces lignes ventilent sur le reste du programme suivant le choix de 
l'utilisateur. 

Lignes 499 à 479 : saisie d'une opération 

On saisit par une boucle FOR/NEXT les trois données du fichier. Si 
le nom de la recette est une chaîne vide, on revient au menu (ligne 
450). 

Lignes 699 à 769 : recherche 


Le programme demande d'abord sur quel type de donnée on dé- 
sire effectuer la recherche, puis la donnée elle-même (variable D$). 


Les lignes 670 à 740 parcourent par une boucle FOR/NEXT l'inté- 
gralité du fichier, et affichent les enregistrements où l'on a trouvé 
la chaîne D$. 


Lignes 999 à 999 : modification 


Ces lignes modifient l'enregistrement choisi par l'utilisateur (varia- 
ble NU). 


Lignes 1199 à 1249 : suppression 
On supprime du fichier l'enregistrement choisi par l'utilisateur (va- 


riable NU). Après l'avoir affiché, le programme demande confir- 
mation. Les lignes 1200 à 1230 décalent le tableau vers le bas. 
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Lignes 1399 à 1499 : listing 

On affiche par une boucle FOR/NEXT l'intégralité du fichier. Le 
programme est stoppé par la ligne 1379 dès que l'écran est plein. 
Lignes 1599 à 1699 : sauvegarde 


Ces lignes sauvent sur cassette le fichier dès qu'une touche a été 
appuyée. 


LISTE DES VARIABLES : 
D$ donnée à rechercher 
D$,) tableau des données du fichier 


drapeau. Si F=@, aucun enregistrement n'a été trouvé. 
indice de boucle FOR/NEXT 


| 

J indice de boucle FOR/NEXT 

K indice de boucle FOR/NEXT 

L$() libellés des données 

N nombre de recettes dans le fichier 

NU numéro d'enregistrement choisi par l'utilisateur 
R$ choix de l'utilisateur 

R valeur numérique de R$ 


NOM : TOURNEDOS 


1 X*TOURNEDOS%x 
4 TO CROUTONS 


NS 
RE 
R 
E 
E 


og 


U 
KR 
E 
T 
R 
Â 
R 
R 
U 
N 
E 
N 
N 
€ 
E 
E 


N 
R 
S 
L 
S 
H 
N 
T 


Ocrumro x 
Zr DC 


x 
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RECETTES DE CUISINE 


Voici le moyen infaillible de faire des gâteaux extraordinaires tous 
différents les uns des autres. 


Très simple ! Vous tapez RUN et en quelques secondes votre or- 
dinateur affiche à l'écran une recette inédite de gâteau au chocolat 
et aux noix. 


Vous n'avez plus qu'à réunir tous les ingrédients dont la liste vous 
est donnée et à suivre les instructions de fabrication. 


Dès que votre gâteau sera cuit, vous pourrez le déguster avec la 
boisson choisie par AMSTRAD, vin ou cidre... 


Un petit conseil cependant : pour déjouer les farces éventuelles de 
votre ordinateur, vérifiez que la combinaison de tous les ingré- 
dients de la recette soit vraisemblable. 


De toute façon, il suffit d'appuyer sur ENTER pour obtenir une nou- 
velle recette. 


Bon appétit ! 


RECETTE 


WO0N0ZOU"T 
mTOZTOMmEDZ 
CCOCHENOZ 
TDAZOX MDI 
de qu en 1) 
SO 2Q © 
COnCQ 6© 
DOCOO 00 
TIMTDT XX 
22722 DD 
ZXZTXZ II 


ER 
O0B 
AT 
ER 

P 
EG 
TE 











102 AMSTRAD EN FAMILLE 





RECETTE DE CUISINE 


Initialisation des 
tableaux 


Placer les elements 
dans leurs tableaux 
respectifs 


Remplir le tableau 
des unites 
US$ 


Remplir le tableau 
des boissons 


BS 


Afficher farine et 
sucre avec des 
quantités aléatoires 


NL = nombre 
aléatoire de liquides 


Afficher NL liquides 
avec des 
quantités aléatoires 


NS nombre aléatoire 
de solides 


Afficher NS solides 
avec des quantités 
aléatoires 


Afficher recette 
farine, sucre, liquide 
solide 


Afficher degrés 
et temps de cuisson 


Afficher 
boisson 
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18 REM CUISINE 

DQ REM----- css Res nes rs 

30 DIM C$(24),Q(24),U(24),A(24) 

49 DATA FARINE, 168,2,3, SUCRE, 50,2,2,EAU,18,4,2,LAI 
T,18,4,2,0EUFS,1,1,3 

50 DATA VANILLE,.5,5,2,BLANC OEUF,1,1,3,HUILE, 1,3, 
2,BEURRE, 58,2,2,LEVURE,.5,5, 2 

60 DATA RAISINS S.,58,2,2,RHUM,.5,6,1,COGNAC,.5,6, 
1,N01IX,58,2,2,NOISETTES, 50,2, 2 

78 DATA CHOCOLAT, 58,2,2, JAUNE D'OEUF,1,1,2,0EUF NE 
1GE,1,1,3,POMMES, 208, 2,2 

88 DATA CERISES,100,2,2,SEL,1,7,2,AMANDES, 50,2,2,F 
RUITS C.,58,2,2,CRÈME, 25,2, 2 

90 DATA ,GRAM.,CUIL.,CLS, SACHET, VERRE, PINC. 

188 DATA VIN ROUGE, VIN BLANC,CIDRE, CHAMPAGNE, JUS D 
"ORANGE, VIN CUIT 

118 MODE 1:INK @,1:INK 1,24:BORDER 1 

128 RANDOMIZE TIME 

IRD TREM 2eme ea nes tereon 

190 REM LECTURE DES INGREDIENTS 

200 FOR I=1 TO 24 

218 READ CS$(I),Q(I),U(I),A(I) 

220 NEXT I 

230 FOR I=1 TO 7 

248 READ US(I) 

258 NEXT I 

260 FOR I=1 TO 6 

276 READ BS(I) 

280 NEXT I 

380 REM ---------------- 

390 REM ELEMENTS DE BASE 

408 CLS:PRINT TAB(14); "RECETTE": PRINT: PRINT 

418 NE=1:GOSUB 1000 

420 NE=2:GOSUB 1888 

438 NL=INT(RND(1)#2)+1 

449 FOR I=1 TO NL 

458 NE=INT(RND(1)#3)+3 

468 IF I=1 THEN 480 

470 IF NE=L(1) THEN 458 

480 GOSUB 1888 

498 L(I)=NE 

500 NEXT I 

BBD: EM, <emesrsuneneeateenesénnmens de 

599 REM ELEMENTS DU GATEAU 

608 NS=INT(RND(1)#3)+3 

619 FOR I=i TO NS 

620 NE=INT(RND(1)*19)+6 

630 IF I=1 THEN 670 

648 FOR J=1 TO 1-1 

650 IF NE=S(J) THEN 628 

660 NEXT J 

670 GOSUB 1008 

680 S(I)=NE 

698 NEXT I 

DO NREM masseur dedans ere 

790 REM RECETTE 

800 PRINT:PRINT:PRINT "MELANGER FARINE, SUCRE"; 
810 IF NL=1 THEN 848 

828 PRINT", ";CS(L(1));" ET ";CS(L(2)); 

830 GOTO 858 
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840 
858 
860 
870 
880 
898 
908 
918 


PRINT" ET ";CS(L(1)); 

PRINT* POUR OBTENIR LA PATE."; 

PRINT" AJOUTER ";CS$(S(1)); 

FOR 1=2 TO NS-1 

PRINT", ";CS(S(I));: 

NEXT ! 

PRINT" ET ";CS(S(NS));". 

PRINT“ BEURRER UN MOULE ET Y METTRE LA PATE OB 


TENUE. "; 


928 
*INT 
930 


PRINT" PLACER CE MOULE DANS UN FOUR A";188+(10 
(RND(1)*6));"DEGRES. "; 
PRINT" LAISSER CUIRE";30+(5*INT(RND(1)*7));"MI 


NUTES."; 
940 PRINT* DEGUSTER CE GATEAU AVEC DU *;BS(INT(RND 
(1)#6)+1); 


950 


IF INÉEYS > CHRS(13) THEN 950 


968 GOTO 408 
989 REM --------------"" 
999 REM CALCUL DES INGREDIENTS 


1000 
1010 
1020 
1030 
1040 


) 
1850 


QU=Q(NE)*INT(RND(1)#A(NE)+1) 

IF QU=-0.5 THEN 1048 

PRINT TAB(5);CS(NE);TAB(21);":";QU;US(U(NE)) 
RETURN 

PRINT TAB(5);CS(NE);TAB(21);": 1/2 ";US(U(NE) 


RETURN 
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LE PROGRAMME 
Lignes 39 à 289 : lecture des ingrédients 


Tous les éléments des DATAs des lignes 49 à 199 sont placés dans 
leurs tableaux respectifs (voir identification des variables). 


Lignes 499 à 509 : éléments de base 


La farine et le sucre sont les deux éléments indispensables à la 
pâte. On appelle donc toujours le sous-programme des lignes 1000 
à 1950 pour ces deux éléments. 


On ajoute, pour compléter cette pâte, un ou deux éléments li- 
quides. Le nombre de liquides est déterminé par la variable NL. 
Dans le cas où deux éléments liquides sont utilisés, on vérifie qu'il 
ne s’agit pas deux fois des mêmes. 


Lignes 609 à 699 : éléments du gâteau 


Puis c'est au tour des éléments solides. On utilise le même procédé 
que pour les liquides. Chaque solide est placé dans le tableau S 
pour la vérification des doublons. Ce tableau sera aussi utilisé pour 
l'édition du texte de la recette (lignes 860 à 889). 


Lignes 899 à 969 : recette 


Chaque élément liquide et solide est repris dans le texte de la re- 
cette. Deux nombres aléatoires donnent la température et le temps 
de cuisson du gâteau. Puis on affiche un des éléments du tableau 
des boissons. 


Lignes 1999 à 1959 : sous-programme 


La variable NE correspond au numéro de l'élément à éditer. La 
quantité à utiliser est comprise entre une base (tableau Q) et cette 
base multipliée par le nombre aléatoire maximum (tableau A). Dans 
le cas où l'on obtient la valeur 0.5, la ligne 1049 affiche le message 
AA: 


AMSTRAD EN FAMILLE 





LISTE DES VARIABLES : 


A() 
B$() 
db 
J 

L() 
NE 
NL 
NS 
Q() 
QU 
S() 
U() 
US$ () 


valeur maximale aléatoire pour chaque ingrédient 
liste des boissons 

liste des composants 

indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

liste des éléments liquides 

numéro de l'élément à éditer 

nombre de liquides 

nombre de solides 

liste des quantités de base de chaque élément 
quantité à utiliser 

liste des solides 

liste des unités 

nom des unités 
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MENUS ALEATOIRES 


Si vous manquez d'idées de menu pour le repas de ce soir, AMS- 
TRAD vous propose une infinité de combinaisons, composées bien 
sûr de vos plats préférés. 


Nul besoin de longues explications. Exécutez le programme, 
un menu s'affiche automatiquement. Il suffit d'appuyer sur “ENT- 
ER" pour obtenir d'autres repas. 


Bon appétit ! 





MENU Di JOUR 


ENTREE : 


SAUMON 


PLAT : 
AUBERGINES FARCIES 


DESSERT : 
PATISSERIE 
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MENUS ALEATOIRES 


DEBUT 


Lecture 


des datas 


Afficher 
l'entrée 
pointée par E 


E - nb aléatoire 











Afficher le 
plat pointé 
par E sans l'* 


Afficher le 
plat 
pointé par E 












— nb aléatoire 


Afficher le 
légume 
pointé par E 











E = nb aléatoire 


Afficher le 
dessert 
pointé par E 
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19 REM MENUS ALEATOIRES 
URL DDR PERTE PSE RER 
38 MODE 1:INK 6,1:INK 1,24:PAPER 0:PEN 1:BORDER 1 
40 DIM ES(158) 
59 RANDOMIZE TIME 
68 FOR I=1 TO 158 
76 READ ES(I) 
80 NEXT I 
180 REM -<=osesde sensé ue sss<ee 
190 REM LES MENUS 
208 CLS:PRINT 
218 PRINT TAB(14);"MENU DU JOUR" 
230 LOCATE 17,6:PRINI"ENTREE:" 
248 E=INT(RND(1)*46)+1 
2506 LOCATE 20-LEN(ES(E))/2,8:PRINT ES(E) 
268 LOCATE 18,11:PRINT"PLAT:" 
2786 E=INT(RND(1)*76)+47 
280 IF RIGHIS(ES(E),1)="#" THEN LOCATE 20-LEN(ES(E 
))/2,13:PRINT LEFTS(ES(E),LEN(ES(E))}-1):GOTO 328 
298 LOCATE 20-LEN(ES(E))/2,13:PRINT ES(E) 
308 E=INT(RND(1)#12)+12: 
318 LOCAIE 28-LEN(ES(E))/2,14:PRINT ES(E) 
320 LOCATE 16,17:PRINT"DESSERT:" 
330 E=INT(RND(1)#24)+135 

(E)) 

13) 


Co 


348 LOCATE 20-LEN(ES 
350 IF INKEYSC>CHRS( 
368 GOTO 206 

988 REM ---------------- 

998 REM LES ENTREES 

1908 DATA SOUPE JULIENNE, SOUPE A L'OIGNON, SOUPE PO 
IREAUX/POMMES DE TERRE 

1919 DATA SARDINES, SAUMON, MAQUEREAUX VIN BLANC, HAR 
ENGS, THON MAYONNAISE, COQUILLES ST JACQUES 

10926 DATA PATE DE CAMPAGNE,PATE DE FOIE,PATE DE CA 

NARD,TERRINE DE LIEVRE,RILLETTES 

1930 DATA JAMBON CRU, JAMBON CUIT, MUSEAU VINAIGRETT 
E, SAUCISSON SEC, SAUCISSON A L'AIL, ANDOUILLE 

1948 DATA SALADE MIXTE, SALADE DE CONCOMBRES, SALADE 
DE MAIS,OEUFS EN GELEE,OEUFS MAYONNAISE, OEUFS A L 

A COQUE, SALADE DE TOMATES,MELON AU PORTO, RADIS, RAD 
IS NOIR, ARTICHAUTS VINAIGRETTE 

1858 DATA CHOU ROUGE, CHOU-FLEUR, BOUCHEES A LA REIN 
E,QUICHE LORRAINE,TARTE AUX OIGNONS,PIZZA,CREPES A 

U JAMBON,CREPES AUX CHAMPIGNONS 

1868 DATA ASPERGES VINAIGRETTE, SALADE D'ENDIVES,PO 
LREAUX VINAIGRETTE,CAROTTTES RAPEES, FONDS D'ARTICH 

AUTS, LENTILLES VINAIGRETIE, CHAMPIGNONS À LA GRECQU 
€ 

1870 REM LES PLATS 

1886 DATA BIFTECK FRITES*, BOEUF BOURGUIGNON*, BOEUF 
EN DAUBE*,BIFTECK HACHE PUREE+*, POT-AU-FEU*, ENTREC 

OTE FRITES*, TOURNEDOS 

1098 DATA FOIE GRILLE PUREE*, LANGUE DE BOEUF JARDI 

NIERE*,ENIRECOTES, GRAS-DOUBLE PETITS POIS« 

1108 DATA ESCALOPES CHAMPIGNONS*, ESCALOPES À LA CR 
EME*, COTELETTES DE VEAU,ROTI DE VEAU, VEAU MARENGO» 
,RIS DE VEAU*,ROGNONS DE VEAU PUREE* 

1116 DATA TETE DE VEAU,FOIE DE VEAU 

1126 DATA COTELETTES DE MOUTON, EPAULE DE MOUTON, GI 


12,19:PRINT ES(E) 
THEN 358 
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GOT DE MOUTON FLAGEOLETS#, RAGOUT DE MOUTON+#, NAVARI 
N+ 


1130 DATA BROCHETTES D'AGNEAU RIZ#*,EPAULE D'AGNEAU 
,BLANQUETTE DE VEAU+ 

1140 DATA COTELETTES DE PORC,ROTI DE PORC, JAMBONNE 
AU, ANDOUILLETTES FRITES+*,BOUDIN, BOUDIN BLANC, PIEDS 
DE PORC, SAUCISSES AU CHOUx 

1150 DATA POULET ROTI,POULET CURRY RIZ#, POULE AU P 
OT,POULE AU RIZ#,C0OQ AU VIN#,OIE ROTI,CONFIT D'OIE 


1160 DATA DINDE AUX MARRONS#,ROTI DE DINDONNEAU, CA 
NARD A L'ORANGE+*,CANETONS ROTIS 

11/0 DATA CIVET DE LIEVRE,CIVET DE LAPIN 

1180 DATA FILET DE BARBUE,CABILLAUD FRIT,DAURADE G 
RILLEE,LIMANDE,LOTTE,MERLANS FRITS,BRANDADE DE MOR 
UE#*,RAIE BEURRE NOIR 

1190 DATA FILETS DE SOLE,SOLE MEUNIERE, TURBOT, MOUL 
ES MARINIERE RIZ+*,TRUITES AUX AMANDES# 

1206 DATA QUENELLES DE POISSON*, ESCARGOTS DE BOURG 
OGNE+#,CUISSES DE GRENOUILLES# 

1210 DATA TOMATES FARCIES+*, CHOUCROUTE GARNIE+#,CASS 
OULET#, AUBERGINES FARCIES+#, COUSCOUS +#, PAELLA% 

1220 DATA OMELETTE AUX CHAMPIGNONS#,OMELETTE AUX P 
OMMES DE TERRE#,ENDIVES AU JAMBON+*, LASAGNES+, CANNE 
LLONIS* 

1230 REM LEGUMES 

1248 DATA PUREE,POMMES DE TERRE,HARICOTS VERTS,PET 
ITS POIS,TOMATES PROVENCALES, EPINARDS, SALSIFIS,LEN 
TILLES 

1250 DATA PATES, SPAGHETTIS, NOUILLES,RIZ 

1268 DESSERT 

12/0 DATA GATEAU DE RIZ,BEIGNETS AUX POMMES,CREME 
AU CARAMEL, MOUSSE AU CHOCOLAT, PUDDING 

1280 DATA CHARLOTTE,FLAN,CREPES,CAKE,CLAFOUTIS,TAR 
TE,PAIN PERDU, QUAIRE-QUARTS,CREME GLACEE,PATISSERI 
E 


1298 DATA BANANES FLAMBEES,MELON, SALADE DE FRUITS, 
GATEAU MAISON, FRUITS DE SAISON 
1300 DATA FROMAGE,CAMEMBERT,FROMAGE BLANC, YAOURT 
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LE PROGRAMME 
Lignes 39 à 89 : initialisation 


Le programme lit dans les DATAs des lignes 1900 à 1399 tous les 
éléments qui vont composer vos menus. Cette liste n'est pas ex- 
haustive. Le lecteur peut ajouter des éléments dans les DATAs entre 
les lignes 1969 et 1970 pour les entrées, entre les lignes 1229 et 
1239 pour les plats, entre les lignes 1259 et 1269 pour les légumes 
et après la ligne 1300 pour les desserts. Il faut bien sûr modifier le 
nombre 158 de la ligne 69 (il y a 158 éléments pour l'instant) mais 
aussi la ligne 249 (il y a 46 entrées, la première est en 1), la ligne 
270 (il y a 76 plats, le premier est en 47), la ligne 399 (il y a 12 
légumes, le premier est en 123) et pour finir la ligne 339 (il ÿ a 24 
desserts, le premier est en 135). 


Tous les plats qui n'ont pas besoin d'un légume doivent être suivis 
d'une étoile. 
Lignes 299 à 369 : les menus 
Le programme affiche quatre types d'éléments au hasard. Si le 
nom du plat se termine par une étoile, on ne tient pas compte des 
légumes pour éviter les “couscous nouilles” et les “choucroutes 
garnies spaghettis”. 
LISTE DES VARIABLES : 

pointe l'élément choisi au hasard 


E 
E$() liste des éléments 
| indice de boucle FOR/NEXT 
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GESTION D'UN CONGELATEUR 


Vous avez du mal à gérer le contenu de votre congélateur ? AMS- 
TRAD va vous donner un petit coup de main | 


Il vous demande en priorité si le fichier a déjà été créé. Si c'est le 
cas, tapez uniquement sur la touche “ENTER” pour relire les don- 
nées. Puis le programme affiche un menu pour les options sui- 
vantes : 


1 - SAISIE : vous devez entrer tous les renseignements sur l'ali- 
ment que vous venez de congeler. Les dates doivent être sai- 
sies sous la forme année, mois et jour pour faciliter les 
recherches de l'option 4, et comporter 6 chiffres (exemple : le 
09/03/84 s'écrit ici 840309). 


Si vous n'avez plus rien à rentrer, appuyez sur “ENTER” à la 
question “Date de congélation :”. 


2 - MODIFICATION : si vous désirez modifier un élément, entrez 
son numéro (si vous avez oublié ce numéro, utilisez l'option 4 
ou 5). Le programme vous demande alors le type de donnée 
que vous voulez modifier. Si vous n'avez plus de modification 
à ajouter, tapez “9” en réponse à la question “Numéro de 
l'élément :”. 


3 - SUPPRESSION : dès qu'un aliment est sorti du congélateur, 
vous pouvez le supprimer par cette option. 


Comme pour la modification, tapez 9 pour revenir au menu. 


4 — RECHERCHE : elle permet d'afficher tous les aliments qui se- 
ront périmés entre deux dates précises, de connaître toutes 
les sortes de crêpes qui vous attendent impatiemment dans 
votre congélateur, ou tous les petits plats que vous y avez mis 
durant l'année 84. Le simple mot “Crêpe” permet de retrouver 
aussi bien les crêpes au jambon que celles aux champignons. 


5 — LISTING : édite simplement sur l'écran le fichier dans son in- 
tégralité. 


6 - SAUVEGARDE : le programme sauve le fichier sur cassette ou 
sur disquette. 
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19 REM GESTION DU CONGELATEUR 

20 RÉM es einer eue 

30 DIM D$(3,188) 

48 L$(1)2"DATE DE CONGELATION(AAMMJJ)":LS$(2)="DATE 
DE PÉREMPTION (AAMMJJ)":L$(3)="NATURE DU PRODUIT" 
59 MODE 1:INK @,8:INK 1,15:BORDER 6 

68 INPUT"PREMIERE UTILISATION (O/N)";R$ 

76 IF R$="O0" THEN 208 

88 CLS:PRINT"METTEZ LE DATACORDER EN LECTURE" 
98 OPENIN "!CONGEL" 

188 INPUT#9,N 

118 FOR I=1 TO N 

128 FOR J=1 TO 3 

130 LINE INPUT#9,D$(J,I) 

148 NEXT J,I 

158 CLOSEIN 

180 REM ----------------- 

190 REM MENU 

2868 CLS 

219 PRINT'NB D'ELEMENTS:";N: PRINT: PRINT 

220 PRINT"1 SAISIE" 

238 PRINT"2 MODIFICATION" 

248 PRINT"3 SUPPRESSION" 

258 PRINT"4 RECHERCHE" 

268 PRINT"5 LISTING" 

278 PRINT"6 SAUVEGARDE * 

288 PRINT:PRINT"VOTRE CHOIX ?" 

298 RS=INKEYS:IF R$S="" THEN 290 

308 R=VAL(RS):IF R<1 OR R>6 THEN 298 

310 ON R GOTO 488,980,1100,688,1300,1506 

380 REM ----------------- 

390 REM SAISIE 

488 CLS:PRINT'SAISIE D'UN ELEMENT":PRINT 

410 IF N=100 THEN PRINT"FICHIER PLEIN"; :LINE INPUT 
R$:GOTO 208 

426 N=N+1 

430 FOR I=1 TO 3 


448 PRINT LS(I);":";:LINE INPUT DS(I,N) 

458 IF I=1 AND VAL(DS(1,N))=@ THEN N=N-1:GOTO 206 
4608 IF I<3 AND LEN(DS(1,N))<>6 THEN 440 

478 NEXT I 

480 GOTO 400 

SUD RÈM -------"" rise tes susnss 

598 REM RECHERCHE 

608 CLS:F=0 


618 PRINT"RECHERCHE PAR :" 

620 FOR I=1 TO 3:PRINT I;LS(I):NEXT 

630 PRINT:PRINT"QUEL TYPE DE DONNEE ?":PRINT 

640 RS=INKEYS:IF RS$="" THEN 648 

658 R=VAL(RS):IF R<1 OR R>3 THEN 280 

668 IF R=3 THEN 708 

670 INPUT"DATE DEBUT (AAMMJJ) "; DD 

688 INPUT"DATE FIN  (AAMMJJ) ";DF 

698 GOTO 718 

768 PRINT LS(R);":";:LINE INPUT D$:PRINT 

718 PRINT 

726 FOR I=1 TO N 

730 1f R=3 THEN IF INSTR(DS(R,I1),0$)=0 THEN 800 EL 
S @ 

746 IF VAL(DS(R,I))<DD OR VAL(DS(R,I))>DF THEN 8080 
750 F=1:PRINT USING"### ";l; 

768 FOR J=1 TO LEN(D$(3,1)) STEP 35 

776 PRINT TAB(5);MID$(D$(3,1),9J,35) 

780 NEXT J 
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798 PRINT" CONGELE LE ";D$(1,1);" PERIME LE ";0 
$(2,1);:PRINAT 
888 NEXT I:PRINT 
818 IF F-6 THEN PRINT"JE N'AI RIEN TROUVE" 
828 IF INKEYS="" THEN 8206 ELSE 608 
989 REM ------------- 
898 REM MODIFICATION 
988 CLS:PRINT"MODIFICATION":PRINT 
918 INPUT*NUMERO DE L'ELEMENT *; NU 
928 IF NU<I OR NU>N THEN 268 
938 FOR I=1 TO 3 
948 PRINT I;L$S(I);":";D$(I, NU) 
958 NEXT I 
968 PRINT: INPUT"MODIFICATION DU";R 
978 IF R<1i OR R>3 THEN 288 
980 PRINT LS(R);":";:LINE INPUT DS(R, NU) 
998 GOTO 900 
lOBR IREM == Sse2ners sorte meress 
1898 REM SUPPRESSION 
1188 CLS: PRINT"SUPPRESSION": PRINT 
1116 INPUT"NUMERO DE L'ELEMENT"; NU 
1120 IF NU<1 OR NU>N THEN 208 
1136 PRINT 
1148 FOR I1=1 TO 3 
1158 PRINT I;LS(I);":";DS(I,NU) 
1168 NEXT I:PRINT 
1178 INPUT"VOUS ETES SUR DE SUPPRIMER 
CET ELEMENT';RS 
1188 IF RS$S<>"O" THEN 1108 
1198 N=N-1 
1280 FOR I=NU TO N 
1218 FOR J=1 TO 3 
12206 DS(J,1)=D$(J,1I+1) 
1230 NEXT J,I 
1248 GOTO 1168 
1289 REM -------------- 
1298 REM LISTING 
1308 CLS:F=0 
1316 FOR I=1 TO N 
1328 PRINT USING"### ";l; 
1338 FOR J=1 TO LEN(D$(3,1)) STEP 35 
1348 PRINT TAB(5):MIDS(DS(3,1),9,35):F=F+1 
1358 NEXT J 
1368 PRINT" CONGELE LE ";D$(1,1);" PERIME LE "; 
DS(2,1):PRINT:F=F+2 
1370 IF F>16 THEN PRINT:PRINT"APPUYEZ SUR ENTER PO 
UR LA SUITE";:LINE INPUT R$:CLS:F=0 


1388 NEXT I 

1390 PRINT: PRINT"APPUYEZ SUR UNE TOUCHE POUR LE ME 
NU"; 

1400 IF INKEYS-="" THEN 1408 ELSE 200 

148Q REM ----------------- 


1490 REM SAUVEGARDE 

1500 CLS:PRINT"APPUYEZ SUR ENTER QUAND LE DATACORD 
ER EST PRET POUR L'ENREGISTREMENT" 

1510 LINE INPUT R$ 

1520 OPENOUT "!CONGEL" 

1530 PRINT#9,N 

1540 FOR I=-1 TO N 

15506 FOR J=1 TO 3 

1568 PRINT#9,DS(J,1I) 

1578 NEXT J,I 

1588 CLOSEOUT 

1590 CLS:PRINT"A LA PROCHAINE CONGELATION !" 
1600 END 
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LE PROGRAMME 
Lignes 39 à 159 : initialisation 


On place dans le tableau L${) les libellés des trois données néces- 
saires à l'exploitation du fichier. 


Si ce n’est pas la première utilisation, on lit sur la cassette le fichier 
déjà créé antérieurement. 

Lignes 299 à 319 : menu 

Ces lignes dispachent sur le reste du programme suivant le choix 
de l'utilisateur. 

Lignes 499 à 489 : saisie d'une opération 

On saisit par une boucle FOR/NEXT les trois données du fichier. Si 
aucune date de congélation n'a été entrée, on revient au menu 
(ligne 450). 

Lignes 699 à 829 : recherche 

Le programme demande d'abord sur quel type de donnée on dé- 
sire effectuer la recherche, puis la donnée elle-même (variable D$ 
pour la nature du produit, et date de début DD et date de fin DF 
pour une période). 

Les lignes 729 à 800 parcourent par une boucle FOR/NEXT l'inté- 
gralité du fichier, et affichent les enregistrements où l'on a trouvé 
la chaîne D$ où comprise entre les deux dates DD et DF. 

Lignes 999 à 999 : modification 

Ces lignes modifient l'enregistrement choisi par l'utilisateur (varia- 
ble NU). 

Lignes 1199 à 1249 : suppression 

On supprime du fichier l'enregistrement choisi par l'utilisateur (va- 


riable NU). Après l'avoir affiché, le programme demande confir- 
mation. Les lignes 1209 à 1230 décalent le tableau vers le bas. 
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Lignes 1399 à 1499 : listing 

On affiche par une boucle FOR/NEXT l'intégralité du fichier. Le 
programme est stoppé par la ligne 1379 dès que l'écran est plein. 
Lignes 1599 à 1699 : sauvegarde 

Ces lignes sauvent sur cassette le fichier dès qu'une touche a été 


appuyée. 


LISTE DES VARIABLES : 


D$ nature du produit à rechercher 

D$(,) tableau des données du fichier 

DD date de début des recherches 

DF date de fin des recherches 

F drapeau. Si F-Q, aucun enregistrement n'a été trouvé. 


l indice de boucle FOR/NEXT 


J indice de boucle FOR/NEXT 

L$() libellés des données 

N nombre de produits dans le fichier 

NU numéro d'enregistrement choisi par l'utilisateur 
R$ choix de l'utilisateur 

R valeur numérique de R$ 





PERIME LE 850605 
PERIME LE 856715 
PERIME LE 851161 














: 
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TRICOT 


Indispensable à toute tricoteuse, ce petit programme permet de 
connaître rapidement et sans calcul le nombre de mailles ou de 
rangs à monter et à tricoter, et d'adapter ainsi à toutes les tailles 
les explications des tricots aux mesures standardisées. 


I suffit de rentrer le nombre de mailles et de rangs d'un échantillon 
tricoté de 10 cm sur 10 cm, les mesures diverses du dos et du de- 
vant (largeur à la base, largeur après diminutions des emman- 
chures, hauteur sous les bras, hauteur totale) et les mesures des 
manches (largeur poignet, largeur à l'épaule, hauteur à l'épaule, 
hauteur totale). 


Dès que tous ces renseignements sont entrés dans votre AMS- 
TRAD, le programme affiche le nombre de rangs à monter et le 
nombre de mailles à tricoter de toutes les parties du tricot. 
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REM TRICOT 

REM 

MODE 1:INK @,1:INK 1,24:BORDER 1:PRINT"'ECHANTIL 
16 CMS SUR 10 CMS":PRINT 

INPUT'NOMBRE DE MAILLES";M1 


INPUT"'NOMBRE DE RANGS'";RI 

M2=M1/10 

R2=R1/10 

RÉM =ESSErSSs se Ses ses ss restes 
REM MESURES DEVANT ET DOS 


CLS:PRINT"MESURES DEVANT ET DOS":PRINT 
INPUT"LARGEUR DOS/DEVANT À LA BASE";LI1 
INPUI"LARGEUR POITRINE";L2 
INPUT'HAUTEUR SOUS LES BRAS"; HI 
INPUT"HAUTEUR TOTALE DOS/DEVANT";H2 
NI=INT(M2*L1) 
N2=INT(M2*L2) 
N3=INT(R2*H1) 
N4=1NT(R2+H2) 
D=INT((NI-N2)/2) 
REM 
REM MESURES MANCHES 
CLS: PRINI"MESURES MANCHES": PRINT 
INPUT"LARGEUR POIGNET";P1 
INPUT"LARGEUR MANCHE A L'EPAULE";E1 
INPUT"HAUTEUR MANCHE A L'EPAULE";H3 
INPUT"HAUTEUR TOTALE MANCHE"; H4 
P2=INT(M2*P1) 
E2=INT(M2*E1) 
N5=INT(R2*H3) 
N6=INT(R2*H4) 

) 


A=INT((E2-P2 
REM 
REM RESULTATS DOS ET DEVANT 
CLS:PRINT" MONTAGE DOS OU 
PRINT"'-MONTER";N1; "MAILLES, 
PRINT"-TRICOTER";N3; "RANGS, SOIT";H1;"CMS." 
PRINT"-A";H1;"CMS, RABATTRE DE CHAQUE COTE" 
PRINT D; "MAILLES, EN PLUSIEURS FOIS," 
PRINT" POUR LES EMMANCHURES. " 
N/=N4-N3 

C=H2-H1 

PRINT"-TRICOTER ENCORE"; N7; "RANGS, 
PRINT C; "CMS." 
PRINT"-A";H2; "CMS, 
REM 
REM RESULTATS MANCHES 
PRINT:PRINT:PRINT" 


DEVANT'":PRINT 
SOIT";L1; "CMS." 


SOIT" 
FERMER SELON L'ENCOLURE." 


MONTAGE DES MANCHES":PRI 


PRINT'-MONTER";P2; "MAILLES, 
PRINT'-TRICOIER";N5; "RANGS, SOIT";H3; "CMS." 
PRINT" EN AUGMENTANT REGULIEREMENT" 

PRINT" CHAQUE COTE DE";A;"MAILLES." 
N8=(P2+(A*2)) 

N9=INT(N8/2) 

PRINT"'-A";H3; "CMS, RABATTRE LES"; N8;"MAILLES" 
PRINT" RESTANTES REGULIEREMENT, SOIT"; N9 
PRINT" MAILLES DE CHAQUE COTE." 
PRINT"-A";H4; "CMS, FERMER LE TRICOT." 


SOIT"; P1; "CMS." 
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LISTE DES VARIABLES : 


A augmentation des manches de chaque côté 

C cms entre l'épaule et le total (dos ou devant) 

D diminutions des emmanchures de chaque côté 

E1 largeur à l'épaule 

E2 nombre de mailles à l'épaule 

H1 hauteur sous le bras 

H2 hauteur totale dos ou devant 

H3 hauteur à l'épaule 

H4 hauteur totale 

| indice de boucle FOR/NEXT 

L1 largeur dos où devant 

L2 largeur à la poitrine 

M1 nombre de mailles pour 10 cm 

M2 nombre de mailles pour 1 cm 

N1 nombre de mailles largeur dos ou devant 

N2 nombre de mailles largeur poitrine 

N3 nombre de rangs hauteur sous bras 

N4 nombre de rangs hauteur totale dos ou devant 

N5 nombre de rangs à l'épaule 

N6 nombre de rangs hauteur totale 

N7 nombre de rangs entre l'épaule et le total dos ou devant 

N8 nombre de mailles à l'épaule de la manche 

N9 nombre de mailles à rabattre de chaque côté de la 
manche 

P1 largeur poignet 

P2 nombre de mailles au poignet 

R1 nombre de rangs pour 10 cm 

R2 nombre de rangs pour 1 cm 
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LES JEUX NATIONAUX 
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LE TIERCE : PRONOSTICS 


Vous jouez au tiercé et vous vous lancez dans des calculs fastidieux 
pour faire la synthèse des avis de vos pronostiqueurs favoris ? 


Ne vous trompez plus dans vos numéros ; demandez tout simple- 
ment l'aide de votre AMSTRAD ! 


Entrez le nombre de chevaux de la course, le nombre de pronostics 
en votre possession et le nombre de chevaux minimum commun 
à tous les pronostics. 


Un court temps de réflexion et l'ordinateur vous donne les chevaux 
qui ont le plus de chance d'arriver dans les quatre premiers, ainsi 
que le total des points obtenus dans chaque pronostic d'après 
l'ordre de classement. 

Il vous révélera aussi quatre tiercés possibles d'après ses résultats. 


Alors pourquoi ne pas essayer... au moins une fois | 
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10 REM PRONOSTICS 


REM 
30 DIM P(38),R(30) 

48 MODE 1:INK 8,1:INK 1,24:BORDER 1 
59 INPUT"NOMBRE DE CHEVAUX"; NC 

68 IF NC>30 THEN 40 

78 FOR I=1 TO NC 

80 R(I)=I 

98 NEXT I 

188 PRINT 

118 INPUT'"NB DE PRNOSTICS";N 

128 PRINT 

130 INPUT"NB DE CHX/PRONO. "; CP 

140 CLS 

150 FOR I=1 TO N 

168 PRINT"PRONOSTICS NO";I 

170 FOR J=CP TO 1 STEP-1 

189 PRINT'NO DU CHEVAL";CP+1-J; 

198 INPUT NP 

208 IF NP>NC THEN 180 

218 P(NP)=P(NP)+J 

220 NEXT J 

230 PRINT: PRINT:PRINT 

248 NEXT I 

DBD REM' m2 nues sou aus 
290 REM TRI 

300 FOR I=1 TO NC-1 

318 FOR J=1+1 TO NC 

320 IF P(J)<P(I) THEN 398 


( 
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_ _ 
ce 
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M NH I 
XXmCG DAC TD 


( 
) 
) 
( 
) 
) 
{ 
_ 


2 
2 
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m 


480 REM ----------------" 
498 REM RESULTATS 


500 CLS:PRINT TAB(13); "PRONOSTICS": PRINT: PRINT 


510 PRINT" PLACE CHEVAL POINTS" 
520 FOR I=1 TO NC 
530 IF P(I1)=0 THEN 558 


540 PRINT TAB(7);1;TAB(15);R(I);TAB(23);P(I 


550 NEXT I 
568 PRINT:PRINT 


570 PRINT" VOUS POUVEZ JOUER LE :":PRINT 


580 FOR I=1 TO 4 

590 FOR J=0 TO 2 

608 IF J+1>4 THEN 630 

619 PRINT TAB(7+J#B);R(J+I); 
620 GOTO 640 

630 PRINT TAB(7+Jæ8); R(J+1-4); 
648 NEXT J 

650 PRINT 

660 NEXT I 

670 IF INKEYS<>CHRS(13) THEN 678 
688 RUN 
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LE PROGRAMME 
Lignes 39 à 249 : saisie des paramètres 


Après la saisie du nombre de chevaux, du nombre de pronostics et 
du nombre de chevaux par pronostic, le programme vous de- 
mande les numéros des chevaux, dans l'ordre proposé par vos 
journaux préférés. 


On place alors dans le tableau P les points obtenus, le premier 
cheval obtenant le maximum (7 points s'il ÿ a 7 chevaux par pro- 
nostic). 


A l'initialisation, le tableau R contient les numéros des chevaux 
dans l'ordre de départ (R(1)=1, R(2)=2, ..). 


Lignes 309 à 499 : tri 


Cette partie du programme trie les deux tableaux en plaçant les 
chevaux par ordre croissant des points obtenus. 


Le tableau R se trouve alors dans l'ordre d'arrivée (présumé !). 


Il s'agit ici d'un tri par la méthode Bubble Sort. Il consiste à compa- 
rer le premier élément du tableau P à tous les autres éléments, en 
effectuant une inversion chaque fois que ceux-ci sont plus petits. 
Le plus petit élément est ainsi amené en début de table. On effectue 
la même chose avec le deuxième élément, et ainsi de suite jusqu'au 
classement complet. 


Lignes 599 à 689 : résultats 


Le programme affiche à l'écran la liste des chevaux dans l'ordre 
avec leurs numéros et le nombre de points qu'ils ont obtenus, pour 
peu que ce dernier soit supérieur à 1. 


Les lignes 580 à 660 ne considèrent que les quatre premiers et 
proposent quatre solutions pour votre tiercé en effectuant des 
combinaisons. 
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LISTE DES VARIABLES : 


A utilisée pour le tri des tableaux 
CP nombre de chevaux par pronostic 
[ indice de boucle FOR/NEXT 

J indice de boucle FOR/NEXT 

N nombre de pronostics 

NC nombre de chevaux 

NP numéro du cheval 

P() points de chaque cheval 

R() ordre d'arrivée pronostiqué 


oo 


AMSTRAD EN FAMILLE 129 


130 


LE LOTO : GRILLES ALEATOIRES 


Seriez-vous de ces sceptiques qui ne jouent pas au loto parce que 


l'on n'y gagne jamais ? 


Ou seriez-vous au contraire un de ces acharnés qui croient au ha- 


sard pur ? 


Dans ce cas pourquoi ne pas tenter autre chose que votre date de 


naissance. 


Voilà un programme de loto qui vous imprimera une grille avec un 
choix de six à dix numéros (pour les amateurs de grilles multiples), 
juste le temps de feuilleter la suite de votre livre. 


| 
LOTO 
































Ciuedean 


10/20/5040] 


Lateeasahe 
ERREE 


| 41484) salaa 


steps 
_sheleslselhel 





[rbderbe xs 





Céhslestéhe 





dede) 
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LOTO ALEATOIRE 


DEBUT 












Entrer le 
nombre de 
chiffres à tirer 

























A = nombre 
aléatoire entre 
1et 49 





non 


A (A) -1 





Afficher les 
49 chiffres 
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220 
230 
240 
250 
260 
270 
8:D 
280 
X,Y 
290 
300 
310 
320 


REM LOTO (ALEATOIRE) 


RER De SR RER ere ne 
DIM A(49) 
MODE 1:INK 8,2:INK 1,25:BORDER 2 


RANDOMIZE TIME 

INPUT "NOMBRE DE CHIFFRES A TIRER";N 
IF N<6 OR N>18 THEN 40 
RE eme su ns tee 
REM TIRAGE 

FOR I=1 TO N 

A=INT(RND(1)*49)+1 

IF A(A)=1 THEN 110 

A(A)=1 


REM RESULTAT 
MODE 1:TAG:MOVE 270,399:PRINT "LOTO"; 

MOVE 194,28:DRAW 400,20:DRAW 408,374:DRAW 194, 
:DRAW 194,28 

FOR 1-0 TO 9 

FOR J=0 TO 48 STEP 18 

IF I+)=0 THEN 298 

X=200+J/10%40:Y=340-1%35 

MOVE X+2,Y+20: PRINT USING"##"; I+J; 

MOVE X,Y:DRAW X+35,Y:DRAW X+35,Y+30:DRAW X, Y+3 
RAW X,Y 


IF A(I+J)=1 THEN MOVE X,Y:DRAW X+35, Y+30: MOVE 
+30: DRAW X+35,Y 

NEXT J 

NEXT I 

IF INKEYS<>CHRS(13) THEN 318 

RUN 
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LE PROGRAMME 

Lignes 39 à 79 : initialisation 

Après le dimensionnement du tableau A(), on saisit au clavier le 
nombre de chiffres que l'on veut obtenir (6 pour les grilles simples, 
7 à 10 pour les grilles multiples). 


La ligne 79 refuse toutes autres valeurs. 


Lignes 199 à 149 : tirage 


Les lignes 199 à 149 remplissent le tableau A) avec des chiffres 1 
pour les cases qui viennent d'être tirées au hasard. La ligne 129 
vérifie le contenu de A() pour s'assurer que le nombre n'a pas déjà 
été tiré. 


Lignes 299 à 329 : résultat 
Après le dessin du cadre (ligne 219), on affiche avec deux boucles 


FOR/NEXT imbriquées les 49 chiffres du loto. Les chiffres qui ont 
été choisis sont barrés comme sur un bulletin normal. 


LISTE DES VARIABLES : 

A nombre aléatoire 

A() liste des chiffres choisis 

| indice de boucle FOR/NEXT 
J indice de boucle FOR/NEXT 
N nombre de chiffres à tirer 


XetY coordonnées sur l'écran du chiffre qui va être affiché 
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LE LOTO : STATISTIQUES 


Pourquoi ne pas jouer au Loto “scientifiquement” ? 


Il faut pour cela garder tous les tirages depuis la création de ce jeu. 
En effet, un chiffre tiré 500 fois a beaucoup plus de chance de sortir 
qu'un chiffre déjà tiré 600 fois. 


Lors de la première utilisation, le programme demande les tirages 
précédents des 49 chiffres. Si vous ne les connaissez pas, vous 
pouvez les trouver dans une des nombreuses brochures spéciali- 
sées sur le Loto. 


Cette formalité étant remplie, donnez le tirage de la semaine et le 
nombre de chiffres dont vous avez besoin (6 pour la formule simple, 
de 7 à 10 pour les multiples). Après le tri, le bulletin s'affiche, les 
chiffres qui ont le plus de chance de sortir étant barrés. 


Pour finir, AMSTRAD vous invite à sauver ces précieux renseigne- 
ments pour le prochain tirage sur cassette. 
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1 € 
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LOTO STATISTIQUES 


Première 


utilisation 
? 


Lire le 
fichier sur 
cassette 








Entrer le 
tirage de 
la semaine 


Entrer le 
nb de chiffres 
à tirer 


Trier 
le 
tableau 


Afficher la 
grille de 
loto 


oui Une 
autre semaine 
? 


Ecrire le 
fichier sur 
cassette 





Entrer les 
tirages des 
années 


précédentes 
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18 REM LOTO (STATISTIQUES) 
DU -REM ASS ee een ee sde 

30 DIM A(49),B(49),C(49),L(49) 

48 MODE 1:TAGOFF:INK 06,0:INK 1,15:BORDER @ 

60 INPUT"PREMIERE UTILISATION (O/N)";R$ 

70 IF R$="O" THEN GOSUB 1888:GO0TO 208 

80 CLS:PRINT"METTEZ LE DATACORDER EN LECTURE" 

99 OPENIN "!LOTO" 

188 FOR I=1 TO 49 

118 INPUT#9,L(1) 

128 NEXT I 

138 CLOSEIN 

I ÉUREM SSL Soie SE un 

190 REM LOTO DE LA SEMAINE 

200 CLS 

218 PRINT" ENTREZ LE LOTO DE LA SEMAINE":PRINT 
2206 FOR I=1 TO 

230 IF I=7 THEN ORINT"CONPLEMENTAIRE ";:GOTO 250 
248 PRINT'CHIFFRE";l; 

258 INPUT C 

260 IF C<i OR C>49 THEN 238 

278 L(C)=L(C)+1 

288 NEXT I 

380 REM ----------" 2 > 

390 REM CHOIX DE LA SEMAINE 

480 CLS:INPUT"NOMBRE DE CHIFFRES À TIRER ";N 

418 IF N<6 OR N>10 THEN 408 

426 FOR 1=1 TO 49 

438 C(I)=L(I):B(I)=1:A(1)=0 

448 
450 
469 
470 
480 
490 
500 
510 
520 
530 
548 
558 NEXT 
SD REM- SES Seed RR CL rer) 

590 REM RESULTAT 

608 MODE 1:TAG:MOVE 270,399:PRINT "LOTO"; 

619 MOVE 194,28:DRAW 400,20: DRAW 406,374:DRAW 194, 
374:DRAW 194,28 

628 FOR I=8 TO 9 

630 FOR J=0 TO 40 STEP 18 

640 IF I+J-@ THEN 698 

650 X=200+J/10#40:Y=340-I«35 

668 MOVE X+2,Y+28: PRINT USING"##"; I+J; 

670 MOVE X,Y:DRAW X+35,Y:DRAW X+35,Y+30:DRAW X, Y+3 
8: DRAW X, Y 

680 IF A(I+J)=1 THEN MOVE X,Y:DRAW X+35,Y+30: MOVE 
X,Y+30:DRAW X+35, Y 

698 NEXT J 

700 NEXT I 

718 TAGOFF:LOCATE 7,25:INPUT"UNE AUTRE SEMAINE (0/ 
N) ";RS 


ZNAZND»DDANNZ 


136 AMSTRAD EN FAMILLE 
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7206 IF R$="0" THEN 208 

780 REM ------------------------------- 

790 REM SAUVEGARDE 

808 CLS:PRINT'LISTE DES TIRAGES" 

810 X=1:Y=3 

828 FOR I=1 TO 49 

838 LOCATE X,Y:PRINT"(";1;")=";L{I) 

840 Y=Y+1 

850 IF I/17=INT(I/17) THEN X=X+13:Y=3 

860 NEXT I 

870 LOCATE 1.21:PRINT"APPUYEZ SUR ENTER QUAND LE D 

ATACORDER EST PRET POUR L'ENREGISTREMENT" 

880 LINE INPUT R$ 

898 OPENOUT “!LOTO" 

908 FOR I=1 TO 49 

918 PRINT#9,L(I) 

920 NEXT I 

930 CLOSEOUT 

948 CLS:PRINT"A LA SEMAINE PROCHAINE !" 

950 END 

988 REM ------------------------------- 

990 REM ENTREE DU NOMBRE DE TIRAGES 

1800 CLS:INPUT"VOULEZ-VOUS ENTRER LES TIRAGES 
DES ANNEES PRECEDENTES (O/N) ";R$ 

1010 IF R$<>"O" THEN 1870 

1928 CLS:PRINT" ENTREZ LES TIRAGES":PRINT 

1030 FOR I=1 TO 49 

1040 PRINT I;"A DEJA ETE TIRE "‘; 

1850 INPUT L(I) 

1068 NEXT I 

1070 RETURN 
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LE PROGRAMME 
Lignes 39 à 139 : initialisation 


S'il s'agit de la première utilisation on exécute le sous-programme 
en 1990 pour entrer les tirages des années précédentes. 


Dans le cas contraire, on lit sur la cassette le fichier déjà créé an- 
térieurement. 

Lignes 299 à 289 : loto de la semaine 

Le programme demande les sept chiffres du dernier tirage. On in- 
crémente en conséquence le tableau L(). 

Lignes 499 à 559 : choix de la semaine 


Après la sauvegarde du tableau L() dans le tableau C{) (lignes 420 
à 449), les lignes 450 à 529 le trient en ordre croissant. 


Les lignes 539 à 550 placent dans le tableau A) les N nombres qui 
ont été choisis, c'est-à-dire ceux qui ont été le moins souvent tirés. 


Lignes 699 à 729: résultats 


Les lignes 629 à 709 affichent une grille de loto en barrant les chiffres 
qui ont le plus de chance de sortir. 


La ligne 729 renvoie à la saisie si l'on désire entrer le tirage d'une 
autre semaine avant la sauvegarde. 

Lignes 899 à 959 : sauvegarde 

Le programme affiche sur l'écran les 49 nombres du loto avec leurs 
tirages respectifs, puis sauve sur cassette le fichier dès qu'une 
touche a été appuyée. 

Lignes 1999 à 1979 : entrée du nombre de tirages 


Ces lignes saisissent les tirages des années précédentes pour cha- 
cun des nombres de 1 à 49. 
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LISTE DES VARIABLES : 


Al) 
B() 
C 
C{) 
F 

I 

J 
L() 
N 
R$ 
Xet Y 


liste des nombres choisis 

ordre des 49 nombres après le tri 
chiffres de la semaine 

sauvegarde du tableau L() pour le tri 


drapeau. Si F-1 le tableau n'est pas encore trié. 


indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

liste du nombre de tirages 

nombre de chiffres à tirer 

réponse du joueur 

coordonnées du prochain nombre à afficher 
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THEME 5 
LE TEMPS 
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ARBRE GENEALOGIQUE 


Comment déterminer les liens de parenté entre tous les membres 
d'une famille en vue d'élaborer un arbre généalogique ? 


C'est ce que AMSTRAD va faire pour vous. 


Trois options vous sont présentées : 


1 - SAISIE : vous pouvez entrer le numéro d'une personne suivi 


ce 


de son nom, son sexe (M ou F), puis le numéro d'un autre 
membre de la famille en relation avec celui que vous désirez 
créer. Pour ce dernier vous saisirez tout de suite après le type 
de relation qu'il a avec le personnage en cours de création (E 
pour enfant, P pour parent, F pour frère et sœur, et M pour un 
mariage). 


Par exemple, on crée la personne X : si Y, référence du lien 
avec X est l'enfant de X, vous devez donner la lettre E pour 
enfant. 


A la 1" création vous serez obligé de donner un numéro non 


identifié comme référence, et vous rentrerez ses coordonnées 
à la deuxième saisie. 


RECHERCHE : en tapant le numéro d'une personne, vous ob- 
tenez ses liens avec tous les autres membres de la famille. 


SAUVEGARDE : sauve le fichier sur cassette. 


Pour changer d'option, il suffit de taper “Q"” comme numéro et l'on 
revient au menu. 
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10 REM ARBRE GENEALOGIQUE 


DO REM 0 eee 
38 MODE 2 

48 DIM N5(48),55(48),P(40,48),1T5(40,48),G$(5,8,2), 
A$(48) 


59 GOSUB 1708 

60 INK 8,8:INK 1,15:PAPER O8:PEN 1:BORDER © 
76 INPUT"PREMIERE UTILISATION (O/N)";R$ 

80 IF R$="O" THEN 360 

98 CLS:PRINT"METTEZ LE DATACORDER EN LECTURE" 
199 OPENIN "! ARBRE" 

119 INPUT#9,N 

126 FOR I=1 TO N 

138 INPUT#9,NS(I),S$(1) 

149 FOR J=1 TO N 

158 INPUT#9,P(J,I),T$(J,1) 

168 NEXT J,I 

1/8 CLOSEIN 

290 REM --------"omsmmssscs se 

290 REM MENU 

308 CLS 

310 PRINT"1 SAISIE PERSONNE" 

328 PRINT"2 RECHERCHE" 

338 PRINT"3 SAUVEGARDE" 

348 PRINT"VOTRE CHOIX ? "; 

358 V=VAL(INKEYS):IF V<i OR V>3 THEN 350 

360 ON V GOTO 488,708,1308 

380 REM -------" sc 

390 REM SAISIE 

488 GOSUB 1500 

418 PRINT: INPUT"NUMERO DE SAISIE "; NU 

428 IF NU=0 THEN 308 

438 IF NU>N+1 THEN 418 

440 IF NU>48 THEN PRINT'FICHIER PLEIN":GOTO 418 
450 IF NS(NU)<>"" THEN PRINT NS(NU):GOTO 500 
468 INPUT"NOM"; NS (NU) 

470 IF NS(NU)="" THEN 400 

480 INPUT"SEXE"; SS(NU) 

498 IF SS(NU)<>"M" AND SS(NU)<>"F" THEN 480 
508 I=NU:N=N+1 

518 INPUT"'LIAISON AVEC ";L:IF L=@ THEN 408 
520 IF P(L,NU)=L THEN PRINT"JE LE SAIS DEJA":GOTO 
510 

530 P(L,NU)=L 

549 INPUT"TYPE (E,P,F,M)";TS(L, NU) 

550 IF TS(L,NU)<>"E" AND TS(L,NU)<>"P" AND TS(L, NU 
)<>"F" AND TS(L,NU)<>"M" THEN 548 

560 P(NU,L)=NU:TS(NU,L)=TS(L, NU) 

570 IF TS(NU,L)="E" THEN TS(NU,L)="P":GOTO 598 
580 IF TS(NU,L)="P" THEN TS(NU,L)="E" 

598 GOTO 4608 

GOUIREN asset en ee 

690 REM RECHERCHE 

700 GOSUB 1508 

718 PRINT: INPUT"NUMERO DE RECHERCHE "; NU 

720 IF NU-@ OR NS(NU)="" THEN 300 

738 FOR I=1 TO N:AS(I)="":NEXT 

748 CLS:PRINT NS(NU);" A POUR:" 

750 FOR I=1 TO N 
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760 IF T$(I,NU)="" THEN 808 

770 AS$S(I)=T$(I,NU) 

780 IF T$(I,NU)="E" THEN AS(P(I,NU))="P":GOTO 888 
790 IF T$(I,NU)="P" THEN AS(P(I,NU))="E" 

888 NEXT I 


818 FOR K=1 TO N 

820 FOR I=1 TO N 

830 IF I=NU OR N$(I)="" OR AS(I)<>"" THEN 880 

840 FOR J=1 TO N 

850 IF A$(J)="" THEN 878 

868 IF P(J,1)=ŸJ THEN A$(I)=T$(J,1)+A$(J):GOTO 880 
870 NEXT J 

880 NEXT I 

890 NEXT Kk 

9008 FOR I=1 TO N 

916 IF AS$(I)="" THEN 1230 

928 FOR J=1 TO LEN(AS$(I)) 

938 IF MIDS(A$S(I),J,2)="FF" THEN AS(I)=LEFTS(AS$(I) 


( 
, J)+RIGHT$S(AS(I) LEN(AS(I))- J-1):1F J>1 THEN J=J-2 
: GOTO 1808 ELSE J=J-1:GOT0 18680 
940 IF MID$S(AS(I1),J,3)="EFE" THEN AS(I)=LEFTS(AS(I 
),J)+RIGHTS(AS(I),LEN(AS(I))-J-1) 
950 IF MIDS(AS(I),J,3)="PFP" THEN AS$S(I)=LEFTS(AS(I 
PRES ERRrASUEEN 1) 
968 IF MID$S(AS(I),J,2)="FE" THEN AS(I)=LEFTS$S(AS(I) 
,J-1)+RIGHT$S(AS(I),LEN(AS(I))-J) 
970 IF MID$S(AS$S(I),J,2)="EM" THEN A$S(I)=LEFTS(AS(I) 
,J)+RIGHT$S(AS(I),LEN(AS(I))-J-1) 
988 IF MID$S(AS(I),J,2)="PF" THEN AS$S(I)=LEFT$S(AS(I) 
, J)+RIGHT$S(AS(I),LEN(AS(I))-J-1):J=J-1:GOT0 1008 
990 IF MIDS$S(AS(I),J,2)="MP" THEN AS$S(I)=LEFTS(AS(I) 
, J-1)+RIGHTS(AS(I),LEN(AS(I))-J):9J=9J-1 
1000 NEXT J 
1010 V=0.:F-0:M-0:C-=08 
1028 FOR J=1 TO LEN(A$(I)) 
1030 IF MID$S(AS(I),J,1)="E" THEN V=V-1 
1840 IF MID$(AS$S(I),J,1)="P" THEN V=V+1 
1050 IF MID$(AS$S(I),J,2)="EF" THEN F-=1 
1068 IF MID$(AS$S(I),J,2)="FP" THEN F=1 
1978 IF MIDS(AS(I),J,2)="MF" THEN F=1 
1080 IF MIDS(AS$(I),J,2)="FM" THEN F=1 
1090 IF MID$S(AS$(1),J,1)="M" THEN M=2 
1100 IF MID$S(AS(I),J,2)="PE" AND MIDS(" "+AS(I),9, 
1)<>"E" AND MIDS(AS(I)+" ",J+2,1)<>"P" THEN M=2 
1110 IF MIDS(AS(I),J,2)="EP" AND MIDS(" "+A$(I),J, 
1)<>"P" AND MID$S(A$S(I)+" ",J+2,1)<>"E" THEN F=1 
1120 IF MID$S(AS(I),9,3)="EFP" THEN C=3 
1130 NEXT J 
1140 IF C=3 AND M=2 THEN C=8 


1150 IF S$(I)}="M" THEN S=1 ELSE S=2 

1160 IF V=Q THEN PRINT G$(1+F+M+C,4,S);:GOTO 1228 
1170 FOR J=V TO SGN(V) STEP -SGN(V) 

1180 IF J<>V THEN PRINT'"-"; 

1190 IF J+4<1 OR J+4>7 THEN PRINT"'ARRIERE";:GOTO 1 
210 

1208 PRINT G$(1+F+M+C,J+4,5S); 

1218 NEXT J 

1228 PRINT" ";N$(I) 

1230 NEXT I 

1240 IF INKEY$=CHR$(13) THEN 708 ELSE 1248 


AMSTRAD EN FAMILLE 





145 


oo 


L2801REM. === 2er rene ss 

1298 REM SAUVEGARDE 

1308 CLS:PRINT"APPUYEZ SUR ENTER QUAND LE DATACORD 
ER EST PRET POUR L'ENREGISTREMENT" 

1310 LINE INPUT R$ 

1328 OPENOUT "!ARBRE"* 

1330 PRINT#9,N 

1348 FOR I=1 TO N 


1358 PRINT#9,NS(I);",";S$(I) 
1368 FOR J=1 TO N 
1378 PRINT#9,P(J,I):",":TS(J,I) 


1380 NEXT J,I 

1390 CLOSEOUT 

1408 CLS:PRINT"A LA PROCHAINE NAISSANCE !" 
1418 END 

1480. REM |==2£%s2sse ses sé sesssss 
1490 REM AFFICHE LES NOMS 

1580 CLS 

1518 FOR I=1 TO N 

1520 IF NS(I1)}="" THEN 1630 

15308 PRINT "(";1;") ";NS$S(I);" "; 

1548 FOR J=1 TO N 

1550 IF T$(J,1)<>"" THEN 1578 

1568 NEXT J:GOT0 1638 


1570 M-0 

1580 IF SS(1)="M" THEN S=1 ELSE S=2 

1598 IF TS$(J,I1)="P" THEN V=1:GOTO 1620 
1600 IF T$(J,1)="E" THEN V=-1:GOTO 1628 
1618 IF TS$(J,I)="F" THEN V=0 ELSE V=0:M=2 
1628 PRINT G$(1+M,V+4,S);" DE ";NS(J) 
1630 NEXT I 

1648 RETURN 

1689 REM --------------------_ 


1698 REM DONNEES GENEALOGIQUES 

1700 FOR K=1 TO 5 

1710 FOR I=1 TO 7 

1720 READ G$(K,I,1),GS(K,I,2) 

1730 NEXT I 

1748 NEXT K 

1750 RETURN 

1760 DATA ARRIERE,ARRIERE,PETIT,PETITE,FILS,FILLE, 
FRÈRE, SOEUR 

1779 DATA PERE,MERE, GRAND, GRAND, ARRIERE, ARRIERE 
1780 DATA ARRIERE,ARRIERE,PETIT,PETITE,NEVEU, NIECE 
FRERE, SOEUR 

1798 DATA ONCLE,TANTE, GRAND, GRAND, ARRIERE, ARRIERE 
1808 DATA ARRIERE,ARRIERE,PETIT,PETITE, GENDRE, BRU, 
EPOUX, EPOUSE 

1818 DATA BEAU-PERE, BELLE-MERE, GRAND, GRAND, ARRIERE 
ARRIERE 

1820 DATA ARRIERE,ARRIERE,PETIT,PETITE,NEVEU (PAR 
ALLIANCE),NIECE (PAR ALLIANCE), BEAU-FRÈRE,BELLE SO 
EUR 

1830 DATA ONCLE (PAR ALLIANCE),TANTE (PAR ALLIANCE 
), GRAND, GRAND, ARRIERE, ARRIERE 

1840 DATA ARRIERE, ARRIÈRE, ARRIERE, ARRIERE,PETIT-CO 
USIN,PETITE-COUSINE, COUSIN, COUSINE 

1850 DATA GRAND-COUSIN, GRANDE-COUSINE, ARRIERE, ARRI 
ERE, ARRIERE, ARRIÈRE 
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LE PROGRAMME 
Lignes 39 à 179 : initialisation 


On fait appel au sous-programme en 1700 pour placer dans le ta- 
bleau G$() toutes les données généalogiques (père, mère, frère, 
sœur, fils, fille, etc.). 


Les tableaux NS), S$(), etc., (ligne 40) correspondent aux noms, 
sexes, etc., des personnes dans le fichier. Si vous trouvez que ce 
n'est pas assez, il est possible de modifier leurs indices maximum 
(ici 49) par une autre valeur supérieure. Il faut pour cela modifier 
tous les chiffres 49 de la ligne 40 et celui de la ligne 440. Donnez 
des valeurs raisonnables, sinon il ne restera plus de place en mé- 
moire pour exécuter le programme. Si ce n'est pas la première 
utilisation, on lit sur la cassette le fichier déjà créé antérieurement. 


Lignes 399 à 369 : menu 


Ces lignes ventilent sur le reste du programme suivant le choix de 
l'utilisateur (variable V). 


Lignes 499 à 599 : saisie 


On fait d'abord appel au sous-programme en 1500 (affiche les noms 
et les liaisons avec d’autres personnes). 


Puis le programme demande le numéro que l'on veut créer ou 
modifier. Si on répond Ÿ, la ligne 429 renvoie au menu. Dans le cas 
contraire, les lignes 460 et 480 saisissent le nom et le sexe. 


Les lignes 519 à 590 saisissent les liaisons avec d'autres personnes. 
On vérifie en ligne 529 si le renseignement donné n'est pas déjà 
dans le fichier. Par exemple si l'on dit : X est l'enfant de Ÿ, et que 
l'on sait déjà que Ÿ est le parent de X on refuse l'entrée. 


Ces lignes créent aussi toutes les liaisons inverses. Par exemple : 
si X est l'enfant de Ÿ, on crée dans l'enregistrement de Y la liaison 
Y est le parent X (c'est le tableau S$() — le sexe — qui détermine s'il 
s'agit du fils ou de la fille, du père ou de la mère). 
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Lignes 799 à 1249 : recherches 


Après l'appel du sous-programme en 1509, on demande le numéro 
du nom que l'on veut rechercher. La boucle FOR/NEXT des lignes 
750 à 800 place dans le tableau A$l,) toutes les liaisons directes 
avec le nom à rechercher (frère, père, etc.). Les lignes 810 à 899 
placent dans le tableau AS$l,) les liaisons indirectes en utilisant les 
liaisons directes déjà dans le tableau (le père du père, le frère du 
père, etc.). 


Ce sont les lignes 900 à 1230 qui déterminent les liaisons finales de 
la personne recherchée. La variable V donne le niveau dans le ta- 
bleau G${), la variable F un lien entre frères, la variable M un ma- 
riage et la variable C concerne les cousins. 


Les lignes 1170 à 12290 affichent les liaisons complètes. Si V=2 par 
exemple, on affiche à la suite les mots “grand” puis “père".SiV=3, 
les mots “arrière”, “grand” puis “père”. Si V=—2,les mots “petit” 
et “fils”, et ainsi de suite. Les variables F, M et C font passer à 
d'autres niveaux dans le tableau G$(). SiF=1et V=-—1 parexemple, 
on affiche le mot “neveu” à la place de “fils” (c'est le fils du frère). 
La combinaison des variables F, M et C permet d'utiliser toutes les 
solutions du tableau GS). 


Lignes 1399 à 1419 : sauvegarde 

Ces lignes sauvent sur cassette le fichier dès qu'une touche a été 
appuyée. 

Lignes 1599 à 1649 : affichent les noms 


Ce sous-programme affiche tous les noms et les liaisons corres- 
pondantes. 
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LISTE DES VARIABLES : 


AS!) 


liste des noms des liaisons (enfant, parent, etc.), pour la 
recherche 

C=3 si on a trouvé une liaison entre cousins 

F=1 si on a trouvé une liaison entre frères 

liste des données généalogiques 

indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

dernière liaison saisie 

M=2 si on a trouvé une liaison entre époux 

nombre de personnes dans le fichier 

numéro de la personne à rechercher 

liste des noms 

P=1 si toutes les liaisons avec NU n'ont pas été trouvées 
liste des liaisons avec les autres personnes (numéros) 
réponse de l'utilisateur 

S=1 pour masculin, S=2 pour féminin 

liste des sexes 

liste des liaisons avec les autres personnes (enfant, pa- 
rent, etc.). 

niveau généalogique 











be 














‘11 SUN JEUN FERE LE DUPONT MAIS 

“E ! DIAMT MAIS FILLE DE DURONT JEU 

Lt DUT JRGUES FRÈRE DE VIFOMT HUILE 

, À! DUCNI JEME EURE LE DPI JEAN 

UE JURA MICHEL EPAIG LE DUPAMI MARIE 
s D MURAT LEGM FILE LE IARANT MICHEL 


NIMERS LE KECHERCHE © E 







BURAAT LES À JOUR: 
GRAD-PERE INPUT JE 
MERE LUFCNI HAHIE 

NCLE DUPONT RCE 
SEM -AERE IUT JERRE 
PÈFE DUFANT MICHEL 
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ASTROLOGIE 


Votre AMSTRAD va vous permettre de mieux étudier votre entou- 
rage grâce à son programme d’'astrologie occidentale. 


Dès que vous aurez rentré la date de naissance d'un proche (JJ, 
MM), il vous affichera son signe zodiacal. 


Il vous exposera aussi en quelques lignes les traits généraux qui 
caractérisent les natifs de ce signe. 


À propos, de quel signe est votre AMSTRAD ? 


ASTROLOGIE 


VOUS ETES DU SIGNE DU TAUREAU 


LE TAUREAU EST: 
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ASTROLOGIE 


DEBUT 


Lecture des 
datas 


Entrer 
jour et mois 
de naissance 


Calculer le nb 
de jours vécus 
depuis le 1°" janvier 


Calculer le 
signe du 
zodiaque 

















Rétablir 
l'orthographe 








Afficher 
le 
signe 


Afficher 
les 
commentaires 
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19 REM ASTROLOGIE 

DO REMN ee Ru Me Nu ee 

39 DIM J(12),S$(12):GOSUB 600 

48 MODE 1:INK 8,1:INK 1,24:PAPER @:PEN 1:BORDER 1 
50 INPUI"JOUR ET MOIS DE NAISSANCE";J,M 

68 IF M=1 THEN 80 

70 FOR I=1 TO M-1:N=N+J(I):NEXT I 

88 N=N+J 

180 REM -------------"---s 

198 REM CALCUL DU SIGNE 

208 FOR I=1 10 13 

218 S=S+1 

220 READ P:C=C+P 

230 IF N<C THEN S=S-1:GOTO 268 

248 NEXT I 

250 STOP 

268 IF S=0 THEN S=12 

389 REM -------" 

398 REM SIGNE ASTROLOGIQUE 

408 CLS:PRINT TAB(15)"ASTROLOGIE":PRINT:PRINT:PRIN 
x 

418 PRINT" VOUS ETES DU SIGNE "; 

420 AS=RIGHTS(SS(S),2):1F A$="NS" OR AS$="UX" THEN 
PRINT"'DES ";:GOT0 448 

430 IF A$="CE" OR AS="GE" THEN PRINT"DE LA "; ELSE 
PRINI"DU "; 

448 PRINT S$(S) 

450 PRINT 

460 PRINT:RESTORE 668 

470 IF AS$="NS" OR AS="UX" THEN PRINT" LES ";S$(S); 
“ SONT: ":GOTO 498 

480 IF AS="CE" OR AS="GE" THEN PRINT" LA ";S$(S);" 
EST:" ELSE PRINT'LE ";S$(S);" EST:" 

490 FOR I=1 TO S:READ AS:NEXT I 

508 PRINT:PRINT A$ 

518 IF INKEYS=CHRS(13) THEN RUN ELSE 510 

580 REM ------------------ 

598 REM DONNEES 

608 FOR I=1 TO 12:READ J(I):NEXT I 

618 DATA 31,28,31,30,31,30,31,31,30,31,30,31 

620 FOR I=1 TO 12:READ SS(I):NEXT I 

630 DATA VERSEAU, POISSONS, BÉLIER, TAUREAU, GEMEAUX, C 
ANCER,LION, VIERGE, BALANCE, SCORPION, SAGITTAIRE, CAPR 
ICORNE 

648 RETURN 

658 DATA 20,30,30,30,31,31,32,31,31,30,30,30,29 
660 DATA "SIGNE D'AIR. ALTRUISTE ET SENSIBLE, IL C 
HERCHE À SE REALISER DANS LE DOMAINE MORAL OÙ SOCI 
AL. INDEPENDANT, SOUVENT ANTICONFORMISTE, MAIS TOU 
JOURS LUCIDE, IL EST À LA RECHERCHE D'UN ABSOLU DA 
NS SA VIE." 

670 DATA "SIGNE D'EAU. SECRET ET IMAGINATIF, IL SE 
VEUT PARTIE INTÉGRANTE DE L'UNIVERS. IL EST EMOTI 
F, IMPRESSIONNABLE, SENSIBLE À TOUT CE QUI TOUCHE 
LES AUTRES. SA GENEROSITE L'ENTRAINE VERS LES GRAN 
DES CAUSES HUMANITAIRES." 

680 DATA "SIGNE DE FEU. IL EST LE TYPE MEME DE L'H 
OMME OÙ DE LA FEMME D'ACTION. PLEIN DE VITALITE ET 
DE TONUS, IL AIME SE DEPENSER PHYSIQUEMENT ET SE 

SURPASSER DANS L'EFFORT." 
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690 DATA "SIGNE DE TERRE. IL POSSEDE UNE PERSONNAL 
ITE PROFONDE ET PASSIONNEE. C'EST UN ETRE CHARNEL 
ET SENSUEL. IL FAIT PREUVE D'UNE ACTIVITE TENACE Q 
UI LE POUSSE A ALLER JUSQU'AU BOUT DE CE QU'IL ENT 
REPREND. " 
708 DATA "SIGNE D'AIR. LE NATIF DE CE SIGNE POSSED 
E UNE GRANDE VIVACITE DE TEMPERAMENT QUI EN FAIT U 
N ETRE DOUE. SA PERSONNALITE MULTIPLE (SIGNE DOUBL 
E) LUI DONNE UNE GRANDE FACULTE D'ADAPTATION ET BE 
AUCOUP DE RAPIDITE DANS LE TRAVAIL." 
710 DATA "SIGNE D'EAU, IL EST DOTE D'UNE PERSONNAL 
ITE TRANQUILLE POSSEDANT LE CALME DE L'ESPRIT, IN 
CHARME SUBTIL ET UNE GRANDE DOUCEUR DE TEMPERAMENT 
IL AIME FLANER, REVER, SE REFUGIER DANS L'IMAGIN 
AIRE." 
720 DATA "SIGNE DE FEU. D'UN TEMPERAMENT MAGNIFIQU 
E ET GENEREUX, IL DETESTE PASSER INAPERCU ET POSSE 
DE LE GOUT DE SE REALISER PLEINEMENT DANS SA VIE S 
OCIALE. VOLONTAIRE, C'EST L'HOMME OÙ LA FEMME DES 
GRANDES ENTREPRISES." 
730 DATA "SIGNE DE TERRE. DE NATURE METHODIQUE ET 
METICULEUSE, LE NATIF DE LA VIERGE RECHERCHE LE CA 
LME DE L'ESPRIT ET LA SECURITE. IL FAIT CEPENDANT 
PREUVE DE CURIOSITE ET DE VIVACITE D'ESPRIT EN PRO 
FONDEUR. " 
740 DATA "SIGNE D'AIR. OUVERT, SENSIBLE, AFFECTUEU 
X, LE NATIF DE LA BALANCE EST UN ETRE A LA RECHERC 
HE DE SON EQUILIBRE. IL SE CARACTERISE PAR SON CHA 
RME, SA SUBTILITE ET SON SENS INTUITIF." 
750 DATA "SIGNE D'EAU. C'EST UN PASSIONNE COMBATIF 
ALTRUISTE ET TRAVAILLEUR ACHARNE, LE NATIF DE CE 
SIGNE POSSEDE UNE RESISTANCE PHYSIQUE CONSIDERABL 
E.” 
768 DATA "SIGNE DE FEU. LE SAGITIAIRE POSSEDE UNE 
PERSONNALITE BRILLANTE SOUTENUE PAR UN PROFOND EQU 
ILIBRE ET UN TRES GRAND SERIEUX. IL EPROUVE LE BES 
OIN DE FRANCHIR SES LIMITES TANT MATERIELLLES QUE 
SPIRITUELLES." 
778 DATA "SIGNE DE TERRE. C'EST UN FLEGMATIQUE OÙ 
UN PASSIONNE A FROID. REFLECHI ET METHODIQUE, IL E 
ST PROFOND, GRAVE ET DISCIPLINE. UNE FOIS SA DECIS 
ION PRISE, IL EST DIFFICILE DE LE FAIRE CHANGER D' 
AVIS." 
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LE PROGRAMME 
Lignes 39 à 89 : initialisation 


Après l'appel du sous-programme en 609 qui place dans le tableau 
J() le nombre de jours par mois et dans le tableau S${) les douze 
signes du zodiaque, le programme saisit le jour et le mois de nais- 
sance et calcule le nombre de jours vécus depuis le 1°" janvier. 


Lignes 2990 à 269 : calcul du signe 

Les DATAs de la ligne 659 donnent le nombre de jours d'écart entre 
chaque signe. La boucle FOR/NEXT des lignes 200 à 249 compare 
le total de ces jours avec ceux du nombre de jours vécus (variable 
N) pour déterminer le signe du zodiaque (variable S). 


Lignes 499 à 519 : signe astrologique 


Ces lignes affichent le signe du zodiaque pointé parS, ainsi que le 
commentaire correspondant (DATAs des lignes 660 à 770). 


Les lignes 420, 430, 470 et 480 rétablissent l'orthographe s'il s'agit 
d'un signe au pluriel ou au féminin. 


LISTE DES VARIABLES : 

AS deux dernières lettres du signe 

C total du nombre de jours d'écart entre les signes 
| indice de boucle FOR/NEXT 

J jour de naissance 

J() nombre de jours par mois 

M mois de naissance 

N nombre de jours vécus depuis le 1°" janvier 
P dernier écart entre deux signes 

S numéro du signe 

S$() liste des douze signes du zodiaque 
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ASTROLOGIE CHINOISE 


Pour approfondir la connaissance des gens qui vous entourent, 
voilà un programme d'astrologie chinoise qui complète celui d'as- 
trologie occidentale. 


La saisie d'une date de naissance par votre AMSTRAD lui fait cal- 
culer le signe chinois de cette année et l'élément qui la caractérise. 


En effet, le signe astrologique dépend de l'année de naissance 
(l'année chinoise bien sûr, différente par sa durée d'une année oc- 
cidentale). Ce signe est complété par un élément associe au yin et 
au yang (année positive et négative). Ainsi, 1983 était l'année du 
cochon d'eau vive (du 13 février 83 au 2 février 84). 


Maintenant vous saurez tout sur votre AMSTRAD ! 





ASTROLOGIE CHINOISE 


VOUS ETES DU SIGNE DU DRAGON 
19364 EST UNE ANNEE DE BOIS 

UOUS ETES DONC UN DRAGON DE BOIS 
LE DRAGON EST: 


— SCRUPULEUX — 
AUTONOME - INFLU 


MAIS AUSSI: 


- INFLEXIBLE - 
INFATUE -— INSATI 


Ê DPACREE - CHANCEUX - 


E 
N 


EX 
SF 


IGEANT - IRRITABLE - 
AIT 
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ASTROLOGIE CHINOISE 


DEBUT 


Lecture des 
datas 


Entrer jour, 
mois et 
année de 
naissance 


Calculer le 
nb de jours vécus 
depuis le 
1°" janvier 1900 


Calculer le 
signe 
chinois 


Afficher 
le 
signe 


Afficher 

l'élément 
avec le yin 
ou le yang 


Afficher 
les 
commentaires 





FIN 
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730 
L,B 
748 
NEX 
750 
768 
770 
,AL 


REM ASTROLOGIE CHINOISE 

REM censé rene 

DIM J(12),S$(12):GOSUB 700 

MODE 1:INK 6,1:INK 1,24:PAPER 8:PEN 1:BORDER 1 
INPUT"JOUR, MOIS, ANNEE DE NAISSANCE";9J,M,A 

IF A>1899 THEN A=A-1908 

IF A<ô OR A>99 THEN 40 
N=A*365+INT(ABS((A-1)/4)) 

IF A/4=INT(A/4) AND A<>0 THEN J(2)=29 ELSE J(2) 


IF M=1 THEN 128 

FOR I=1 TO M-1:N=N+J(I):NEXT I 
N=N+J 

REM -------------- 


REM CALCUL DU SIGNE 

FOR I=1 TO 181 

S=S+1 

READ P:C=C+T(P) 

IF N<C THEN S=S-1:GOTO0 268 

NEXT I 

STOP 

E=S:S=S MOD 12:F-=E MOD 18 

IF S=0 THEN S=12 

IF E=0 THEN E=10 

REM ------------------------------- 
REM SIGNE ASTROLOGIQUE 

CLS:PRINT TAB(11)"ASTROLOGIE CHINOISE":PRINT:P 


PRINT" VOUS ETES DU SIGNE DU ";S$(S) 

PRINT 

PRINT A+1980;"EST UNE ANNEE ";ES(E);" ";YS(E) 
PRINT 

PRINT" VOUS ETES DONC UN ";S$(S);" ";ES(E) 
PRINT:RESTORE 898 

PRINT" LE ";S$(S);" EST:" 

FOR I=1 TO (S-1)*18:READ AS:NEXT I 
PRINT:PRINT" - "; 

FOR I=1 TO 5 

READ AS:PRINT AS;" - "; 

NEXT I 

PRINT: PRINT:PRINT" MAIS AUSSI:":PRINT:PRINT" - 


FOR I=1 TO 5 

READ AS:PRINT AS;" - "; 

NEXT I 

PRINT: PRINT 

IF INKEYS=CHRS(13) THEN RUN ELSE 588 

REM: Sms eteneen een ransee 

REM DONNEES 

FOR I=1 TO 12:READ J(I):NEXT I 

DATA 31,28,31,30,31,30,31,31,30,31,30,31 

FOR I=1 TO 12:READ SS([I):NEXT I 

DATA RAT, BOEUF,TIGRE, CHAT, DRAGON, SERPENT, CHEVA 
OUC, SINGE, COQ, CHIEN, COCHON 

FOR I=1 TO 18 STEP 2:READ ES(I1):ES(I+1)=ES(I): 
TI 

DATA DE METAL,D'EAU,DE BOIS,DE FEU,DE TERRE 
FOR I=1 TO 18:READ YS(I):NEXT I 

DATA FROID, CHAUD, NATURELLE, VIVE, , ALLUME, LATENT 
LUME, INCULTE, CULTIVEE 
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788 T(@)- 
(5) 385:T 
RETUR 
840 DATA 
819 DATA 
820 DATA 
830 DATA 
840 DATA 
850 DATA 
860 DATA 
8/70 DATA 
880 DATA 
890 DATA 
ENTIMENTA 
908 DATA 
918 DATA 
92@ DATA 
UD 
938 DATA 
940 DATA 
ETE 
958 DATA 
EUX 
968 DATA 
x 
978 DATA 
NFLUENT 
988 DATA 
ATISFAIT 
998 DATA 
1908 DATA 
VAGANT, VO 
1918 DATA 
E 
1928 DATA 
TOYABLE 
1938 DATA 


E 

1040 DATA 
NDISCIPII 
10508 DATA 
ANT 

1068 DATA 
ULATEUR 
10/7@ DATA 
UREUX 
1888 DATA 
E 


1898 DATA 
1188 DATA 
, CYNIQUE 
1118 DATA 
E, AIMANT 
1128 DATA 
E 


353:1(1)=354:T(2)=355:1(3)=383:1T(4)-384:7T 


(6)=31 

N 

6,4,1,2,3,1,2,4,1,2,4,1 
4,1,1,4,1,2,4,2,4,1,1,4 
1,2,4,1,2,4,1,3,1,2,4,2 
1,4,1,4,1,1,4,2,1,5,1,1 
4,1,4,1,2,4,1,2,4,1,3,2 
1,4,2,1,4,2,8,4,2,4,1,2 
4,1,1,4,1,4,1,2,4,2,1,4 
1,4,1,1:4,2,2,4;1, 13,2 

4,1,2,4,1 

ENERGIQUE,METICULFUX, SOCIABLE,HUMORISTE,S 
Le 

AGITE, JOUEUR, INQUIET, ENNUYEUX, SOUPCONNEUX 


TRAVAILLEUR,FIER, ELOQUENT,ORIGINAL, TENACE 
LENT, AUTORITAIRE, VINDICATIF, JALOUX, LOURDA 


GENEREUX, COURAGEUX, SENSIBLE, PROFOND, ACTIF 
VANITEUX, QUERELLEUR,TEMERAIRE, EMPORTE, ENT 


DISCRET,RAFFINE, VERTUEUX, AMBITIEUX, INGENI 
PEDANT, SUSCEPTIBLE, DISTANT, SECRET, TORTUEU 
SCRUPULEUX, PERSPICACE, CHANCEUX, AUTONOME, I 
INFLEXIBLE,EXIGEANT,IRRITABLE,INFATUE,INS 
SAGE, CULTIVE, INTUITIF,ELEGANT, PHILOSOPHE 
PRESOMPTUEUX, POSSESSIF, FLEGMATIQUE, EXTRA 
AIMABLE, HABILE, INDEPENDANT, SENSUEL , ENJOU 
EGOISTE, FAIBLE, IMPATIENT,INSENSIBLE,IMPI 
CREATIF,INTELLIGENT, DOUX, SIMPLE, ALTRUIST 
CAPRICIEUX, INEXACT,INDISCRET,DEPENDANT, I 
a 
RUSE, INFIDELE,MALHONNETE, VANITEUX,DISSIM 
FRANC, SINCERE, AMUSANT, ENTHOUSTASTE, AVENT 
MANIAQUE,MEFIANT,DEPENSIER, VANTARD, ACERB 


LOYAL,ATTENTIF,LUCIDE,FIDELE, MODESTE 
CRITIQUE, PESSIMISTE, MORALISATEUR, RESERVE 


INDULGENT, CONSCIENCIEUX, DECISIF,PACIFIQU 
NAIF,CREDULE,ENTETE,DESARME,TERRE A TERR 
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LE PROGRAMME 


Lignes 39 à 129 : initialisation 


Après l'appel du sous-programme en 700 qui place dans le tableau 
J() le nombre de jours par mois, dans SS{) les douze signes, dans 
E$() les 5 éléments et dans Y${) le yin et le yang, le programme 
saisit le jour, le mois et l’année de naissance et calcule le nombre 
de jours vécus depuis le 1°" janvier 1900. 


Lignes 209 à 289 : calcul du signe 


Les DATAs des lignes 800 à 880 donnent le nombre de jours de 
chaque année chinoise (totalement différent des années occiden- 
tales de 365 ou 366 jours) en se référant au tableau T{() pour ne pas 
surcharger les données dans le programme. La boucle FOR/NEXT 
des lignes 200 à 240 compare le total de ces jours avec ceux du 
nombre de jours vécus (variable N) pour déterminer le signe chinois 
(variable S). Les signes se répétant tous les douze ans, on ne prend 
que le modulo 12 de S (modulo = reste de la division). Il en est de 
même pour les éléments (variable E) qui se répètent tous les dix 
ans. 


Lignes 499 à 589 : signe astrologique 


Ces lignes affichent le signe chinois pointé par $, l'élément pointé 
par E avec le yin et le yang correspondant (Yang — positif, vin - 

négatif), ainsi que des commentaires sur le signe (DATAs des lignes 
899 à 1120). 


LISTE DES VARIABLES : 


A année de naissance 

A$ commentaires sur le signe à afficher 

C total du nombre de jours des années chinoises 

E$() liste des cinq éléments 

| indice de boucle FOR/NEXT 

J jour de naissance 

J() nombre de jours par mois 

M mois de naissance 

N nombre de jours vécus depuis le 1°" janvier 1900 

P nombre de jours dans l'année chinoise (pointe le tableau 
T) 

S numéro du signe 

S$() liste des douze signes chinois 

T() nombre de jours possibles dans une année chinoise 

Y$() liste des yin et des yang 
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ESPERANCE DE VIE 


Vous ne le savez peut-être pas, mais les voyantes modernes ne 
vous répondent plus à la légère quand vous leur demandez combien 
de temps vous vivrez. 


Elles calculent consciencieusement votre espérance de vie grâe à 
un ordinateur discrètement relié à leur boule de cristal. 


Lequel ordinateur utilise le test très sérieux qui vous est proposé 
dans les pages suivantes. || a été mis au point par un médecin 
anglais d'après les renseignements d'ordre privé demandés parles 
assureurs-vie à leurs clients. 


Ce test est basé sur le principe d'une espérance de vie correspon:- 
dant à chaque âge (71 ans si l'on a 30 ans, 73 ans si l'on a 50 ans...). 
Mais des critères négatifs (abus du tabac, de l'alcool...) ou positifs 
(bon sommeil, longévité des parents) peuvent rallonger ou rac- 
courcir cette espérance de vie de plusieurs années. Bien sûr, cela 
reste du domaine des statistiques, chaque histoire humaine étant 
unique et imprévisible ! Mais on peut méditer... 





ESPERANCE DE UIE 


REPONDEZ PAR UN CHIFFRE ENTRE 1 ET 6 7? 
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ESPERANCE DE VIE 


DEBUT 












Entrer 
votre âge 








Calculer 
l'espérance 
de vie initiale 











N - nombre 
de questions 


Lecture des 
n questions 
et n annees 


Afficher 
la question 
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Entrer la 
réponse oui 
ou non dans R$ 















R$ 
>» « À » ou < 








«No» 





+ A(1) 





Espérance - 
espérance 











non 










Afficher 
l'espérance 
de vie 












Entrer 
votre choix 
= R 









Espérance 
espérance 
+ A (R) 
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RE ——_—_——_——— 


19 REM ESPERANCE DE VIF 
29 REM ----------"-" 
CLS:PRINT TAB(12);"ESPERANCE DE VIE":PRINT:PRIN 


48 INPUT"VOTRE AGE"; AGE 

50 IF AGE<15 OR AGE>80@ THEN 30 

68 IF AGE<41 THEN E=70+(AGE-15)#(1.8/25) 

76 IF AGE>40.AND AGE<60 THEN E=72.6+(AGE-41)#(3.4/ 
18) 

80 IF AGE>59 THEN E=76.3+(AGE-60)#(9.4/20) 

LOU REM San ne dense DA reseau 

198 REM INTERPRETATION DES QUESTIONS 

208 FOR I=1 TO 14 

218 CLS:PRINT TAB(12);"ESPERANCE DE VIE" 

220 READ N 

2386 FOR J=1 TO N 

248 READ A(J),Q$(J) 

250 NEXT J 

268 PRINT: PRINT'QUESTION ";I:PRINT 

278 FOR J=1 TO N 

280 AS=STRS(J)+"-"+Q$(J):PRINT AS 

298 NEXT J 

300 IF N>1 THEN 360 

319 PRINT:PRINT"REPONDEZ PAR OUI OÙ NON ?* 

320 RS=INKEYS 

330 IF R$<>"O" AND RS<>"N" THEN 328 

348 IF R$="O" THEN E=E+A(1) 

358 GOTO 400 

368 PRINT: PRINT"REPONDEZ PAR UN CHIFFRE ENTRE 1 ET 
":N; n°29 

378 RS=INKEYS 

380 R=VAL(RS):IF R<1 OR R>N THEN 378 

390 F=F+A(R) 

408 NEXT I 

ABO-REN --essmassessssscespendshan 

498 REM RESULTATS 

508 CLS:PRINT TAB(12); "ESPERANCE DE VIE":PRINT:PRI 
NT: PRINT 

510 PRINT TAB(8); "VOTRE ESPERANCE DE VIE EST":PRIN 
è 


520 PRINT TAB(16);"DE";INT(E); "ANS" 

530 IF INKEYSCCHRS(13) THEN 538 

549 RUN 

580 REM -------------- 

599 REM DONNEES DES QUESTIONS 

608 DATA 1,3,"ETES-VOUS UNE FEMME" 

619 DATA 1,1,"UN DE VOS GRANDS-PARENTS À VECU 

88 ANS OÙ PLUS" 

620 DATA 4,4,"VOTRE MERE A VECU PLUS DE 88 ANS" 

630 DATA 2,"VOTRE PERE À VECU PLUS DE 88 ANS" 

640 DATA 6,"LES DEUX",0, "AUCUN" 

658 DATA 6,-4 

669 DATA "VOUS AVEZ UN PARENT DECEDE D'UNE 

CRISE CARDIAQUE AVANT 50 ANS" 

670 DATA -4,"D'UNE EMBOLIE OU ASTERIOSCLEROSE 
AVANT 50 ANS" 

688 DATA -2,"DECEDE ENTRE 58 ET 60 ANS" 

690 DATA -3,"DECEDE DE DIABETE AVANT 68 ANS" 

709 DATA -2,"DECEDE DEF CANCER DE L'ESTOMAC AVANT 
68 ANS" 
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710 
720 
R 

738 
740 
758 
760 
770 


DATA 6, "AUCUN" 

DATA 4,-9,"VOUS FUMEZ PLUS DE 48 CIGARETTES PA 
JOUR" 

DATA -7,"ENTRE 28 ET 4Q CIGARETTES" 

DATA -2,"MOINS DE 28 CIGARETTES" 

DATA @,"VOUS NE FUMEZ PAS" 

DATA 1,2 

DATA "VOUS AVEZ DES RELATIONS SEXUELLES 1 


OU 2 FOIS PAR SEMAINE" 


780 
798 
800 


810 
820 
VIN 
830 
840 
850 


860 
870 
880 
898 
988 
910 


928 
930 
940 
950 


DATA 1,2,"VOUS EFFECTUEZ UN EXAMEN MEDICAL 

COMPLET TOUS LES ANS" 

DATA 1,-2, "VOUS DEPASSEZ VOTRE POIDS NORMAL 
(VOIR PROGRAMME ‘POIDS IDEAL')" 

DATA 1,-2,"VOUS DORMEZ PLUS DE 18 HEURES PAR 
NUIT OÙ MOINS DE 5 HEURES" 

DATA 3,3 

DATA "VOUS BUVEZ MODEREMENT (1/2 LITRE DE 

OU 4 VERRES DE BIERE)" 

DATA @,"VOUS NE BUVEZ PAS" 

DATA -8,"VOUS BUVEZ BEAUCOUP" 

DATA 1,3,"VOUS PRENEZ DE L'EXERCICE TROIS FOIS 

PAR SEMAINE" 

DATA 3,3,"VOUS ETES EX-UNIVERSITAIRE" 

DATA 2,"VOUS ETES BACHELIER" 

DATA 6@,"NI L'UN NI L'AUTRE" 

DATA 2,1,"VOUS ETES CITADIN" 

DATA -1,"VOUS ETES CAMPAGNARD" 

DATA 5,1,"VOUS FETES MARIE OÙ VIVEZ 

MARITALEMENT" 

DATA -9,"VOUS ETES SOLITAIRE" 

DATA -7,"VOUS ETES VEUF" 

DATA -4,"FEMME SEPAREE OÙ DIVORCEE" 

DATA -3,"FEMME VEUVE" 
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LE PROGRAMME 

Lignes 39 à 89 : initialisation 

L'espérance de vie initiale (variable E) est calculée suivant une 
courbe statistique pour des âges allant de 15 à 80 ans. Pour suivre 


le plus possible cette courbe, on effectue un découpage en trois 
tranches : de 15 à 40 ans, de 41 à 59 ans et de 60 à 80 ans. 


Lignes 299 à 499 : interprétation des questions 

Toutes les questions sont placées dans les DATAs des lignes 600 à 
959. La première donne le nombre de réponses possibles (variable 
N),et les N DATAs qui suivent les questions et le nombre d'années 
à retrancher ou à ajouter. 

Dans le cas d'une seule question (réponse par OUI ou NON), le 
tableau A est pris en considération uniquement si la réponse est 
OUI. 

Lignes 599 à 549 : résultats 


Ces lignes affichent à l'écran votre espérance de vie (Variable E). 


Si vous obtenez un nombre d'années inférieur à votre âge réel, 
vous avez sûrement menti quelque part ! 


LISTE DES VARIABLES : 


A$ dernière touche appuyée 

AGE âge actuel de l'utilisateur 

A() années à ajouter ou à retrancher suivant la réponse aux 
questions 

E espérance de vie 

I indice de boucle FOR/NEXT 

J indice de boucle FOR/NEXT 

N nombre de réponses possibles 

Q$() tableau des questions 

R réponse de l'utilisateur (numérique) 

R$ réponse de l'utilisateur (alpha-numérique) 
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BIORYTHME 


Ce programme permet la représentation graphique du biorythme 
de chacun pour un mois donné. 


Les courbes obtenues dessinent les trois principaux cycles qui in- 
fluencent la vie humaine, avec leurs périodes positives et néga- 
tives : le cycle physique de 23 jours, le cycle émotionnel de 28 jours 
et le cycle intellectuel de 33 jours. Ces données, tout à fait sé- 
rieuses, ont fait l'objet de longues études statistiques. 


Pendant les périodes positives, notre énergie se libère et nous 
sommes actifs. Pendant les périodes négatives, notre organisme 
récupère ses forces. Aux points zéro des courbes, nous vivons des 
jours critiques. 


Ce ne sont pas forcément des jours dangereux, mais ce sont sûre- 
ment des jours où il faudra redoubler d'attention. Une grande pru- 
dence est nécessaire pendant les jours critiques doubles (deux 
courbes aux points zéro), et il est vivement conseillé de ne pas 
sortir de chez soi les jours critiques triples…. 


Pour calculer votre biorythme, AMSTRAD demandera successive- 
ment le prénom, le jour, le mois et l'année de naissance, puis le 
mois et l’année du biorythme souhaité. Le biorythme se dessine 
alors sur l'écran. 
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BIORYTHME 







Tableaux 
M$ et M avec 
lenomet le 
nb de jours par mois 







Entrer jour 
mois et 
année de 
naissance 











Entrer mois 
et annee du 
biorythme 






Calcul du 
nombre de 
jours vécus +R 










Afficher 
le graphe 
du biorythme 











Calcul des 
points physique 
émotionnel 
et intellect 











Afficher 
les trois points 
sur l'écran 
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19 REM BIORYTHME 
A0: RÉM eee sene 

30 DIM MS(12),M(12) 

40 FOR I=1 TO 12:READ MS(I),M(I):NEXT I 

50 DATA JANVIER, 31,FEVRIER,28,MARS, 31, AVRIL, 36, MAI 
31, JUIN, 38 

68 DATA JUILLET, 31,AOUT, 31, SEPTEMBRE, 30, OCTOBRE, 31 
, NOVEMBRE, 30, DECEMBRE, 31 

76 MODE 1:INK 6,0:INK 1,26:INK 2,2:INK 3,6:PAPER @ 
:PEN 1:BORDER @ 

LRO: REM === osent esse 

190 REM SAISIE DES DATES 

208 INPUT"VOTRE PRENOM";PS 

218 PRINT"JOUR, MOIS, ANNEE DE NAISSANCE" 

228 INPUT J,M,A 

2308 PRINT'MOIS, ANNEE DU BIORYTHME" 

248 INPUT V,W 

258 IF W<A THEN PRINT"IMPOSSIBLE":GOTO 218 

268 IF W=A AND M>=V THEN PRINT"IMPOSSIBLE":GOTO 21 
0 

289 REM -------- 2 

298 REM CALCULS 

300 R=0 

310 IF A/4=INT(A/4) THEN M(2)=29 ELSE M(2)=28 

320 R=M(M)-J+1 

330 IF A=W THEN D=V-1 ELSE D=12 

340 FOR I=M+1 TO D:R=R+M(I):NEXT I 

350 IF A=W THEN 410 

368 FOR I=A+1 TO W-1 

370 R=R+365:IF I/4=INT(I/4) THEN R=R+1 

380 NEXT I 

399 IF W/4=INT(W/4) THEN M(2)=29 ELSE M(2)=28 

408 FOR I=1 TO V-1:R=R+M(I):NEXT I 

418 PRINT R 

480 REM ----------- 

490 REM DESSIN DU BIORYTHME 

500 CLS 

510 PRINT P$;" NE LE";J;MS(M);A 

520 PRINT"BIORYTHME POUR ";MS(V);W 

530 PRINT""" 

549 MOVE 6,360:DRAW 6,50,1:MOVE 8,368: DRAW 8,58,1 
559 MOVE 6,200:DRAW 528,208, 1 

560 FOR J=8 TO (M(V)-1)#16 

570 P=200+INT(120*SIN((R+(J/16))#2*PI/23)) 

580 E2200+INT(120eSIN(R+( 9/16) )#2%P1/26)) 

590 I=200+INT(120#SIN((R+(J/16))#2*P1/33)) 

600 PLOT J+20,P,1:PLOT J+28,E,2:PLOT J+28,1,3 

610 IF J>=M(V) THEN 640 

620 LOCATE J+2,23:PRINT MIDS(STRS(J+1),2,1) 

630 LOCATE J+2,24:PRINT MIDS(STR$S(J+1)+" ",3) 

649 NEXT J 

658 LOCATE 35,4:PRINT"+":LOCATE 35,21:PRINT"-" 
660 PEN 1:LOCATE 35,12:PRINT"P" 

678 PEN 2:LOCATE 35,13:PRINT"E" 

680 PEN 3:LOCATE 35,14:PRINT"'I":PEN 1 

698 IF INKEYS<CHRS(13) THEN 698 

708 RUN 
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LE PROGRAMME 
Lignes 39 à 79 : initialisation 


Après dimensionnement des tableaux M${) et M{), on y place le 
nom et le nombre de jours de chaque mois que l'on lit dans les 
DATAs des lignes 59 et 60. 


Lignes 299 à 269 : saisie des dates 


On saisit dans ces lignes tous les renseignements nécessaires à 
l'élaboration du biorythme. 


Lignes 399 à 419 : calcul 


On calcule le nombre de jours vécus par l'intéressé, en tenant 
compte des années bissextiles évidemment. 


Lignes 599 à 799 : édition 


Avec les renseignements collectés ci-dessus, on peut éditer le bio- 
rythme. Après les axes, on dessine point par point les trois courbes 
en calculant leurs ordonnées par une fonction sinus. L'abscisse 
correspond aux numéros des jours concernés. 


LISTE DES VARIABLES : 


année de naissance 

nombre de mois restants dans l'année de naissance 
coordonnée du point “émotionnel” 
coordonnée du point “intellectuel” 
jour de naissance 

mois de naissance 

coordonnée du point “physique” 
prénom 

valeur de PI 

nombre de jours vécus 

mois du biorythme 

année du biorythme 


£S<22%2vz--mou>» 
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JOUR DE LA SEMAINE 


Etes-vous curieux de savoir si vous êtes né un jeudi où un di- 
manche ? 


Voilà un petit programme qui vous donnera, outre le jour de la 
semaine de votre date de naissance, le nombre de jours, d'heures 
et de minutes que vous avez déjà vécus (nombre parfois impres- 
sionnant |). 





VUOUS ETES MECE > LE = 


DIMANCHE LE SEPTEMBRE 
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JOUR DE LA SEMAINE 


Noms et nombre 
de Jours par mois 
ds M$() et M() 


Noms des jours de 
la semaine ds 
J$() 


Entrer jour, 
mois et année 
de naissance 


Entrer jour, 
mois et année 
actuels 


Calculer le 
nb de jours 
vécus 


Calculer le 
jour de la 
semaine 


Afficher la 
date 
de naissance 


Afficher le 
nombre de 
Jours vécus 
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19 REM JOUR DE LA SEMAINE 

20 REM -------------- 

38 DIM M$(12),M(12) 

40 FOR I=1 TO 12:READ MS(I),M(I):NEXT 

50 DATA JANVIER, 31,FEVRIER,28,MARS, 32, AVRIL, 30, MAI 
,31, JUIN, 38 

68 DATA JUILLET, 31, AOÛT, 31, SEPTEMBRE, 38, OCTOBRE, 31 
, NOVEMBRE, 38,DECEMBRE, 31 

78 MODE O:INK 0,1:INK 1,24:BORDER 1 

80 FOR I=1 TO 7:READ J$(I):NEXT 

98 DATA LUNDI, MARDI, MERCREDI, JEUDI, VENDREDI, SAMEDI 
, DIMANCHE 

180 REM ---=-2s2 sos uses 

198 REM SAISIE DES DATES 

208 PRINT'JOUR, MOIS, ANNEE DE NAISSANCE" 

218 INPUT J,M,A 

226 PRINT"JOUR, MOIS, ANNEE ACTUELS" 

238 INPUT U, V,W 

240 IF A=W AND V<=M THEN PRINT"IMPOSSIBLE":GOTO 28 
@ 

250 IF A>99 OR W>99 OR A>W THEN 268 

280 REM -----------" "cc 

290 REM CALCUL DU NB DE JOURS 

300 R=8 

318 IF A/4=INT(A/4) THEN M(2)=29 ELSE M(2)=28 

320 R=M(M)-J+1 

338 IF A=W THEN D=V-1 ELSE D=12 

340 FOR I=M+1 TO D:R=R+M(I):NEXT I 

350 IF A=W THEN 418 

368 FOR I=A+1 TO W-1 

370 R=R+365:IF I/4=INT(I/4) THEN R=R+1 

388 NEXT I 

398 IF W/4=INT(W/4) THEN M(2)=29 ELSE M(2)=28 

408 FOR I=1 TO V-1:R=R+M(I):NEXT 

418 R=R+U-1 

480 REM -----------""" 

490 REM CALCUL DU JOUR DE LA SEMAINE 

500 S=(A#365)+INT((A-1)/4) 

510 IF A=0 THEN S=0 

528 IF A/4=INT(A/4) THEN M(2)=29 ELSE M(2)=28 

530 FOR I=1 TO M-1:S=S+M(I):NEXT I 

540 S=S+J-1 

550 Y=S-(7*INT(S/7))+1 

589 REM ------------- 

590 REM RESULTATS 

608 CLS 

619 PRINT"VOUS ETES NE(E) L 
620 PRINT JS(Y);: J:MS(M):PRI 
630 PRINT:PRINT:PRINT 

640 PRINT"VOUS AVEZ VECU :":PRINT 

6508 PRINT USING"###########":R;: PRINT" JOURS" 

668 PRINT USING"##4#####4####";R«24;: PRINT" HEURES" 
670 PRINT USING"###########";R«1440; : PRINT" MINUTE 
S" 

688 PRINT USING"####4#4####"; R+86400; : PRINT" SECON 
DES" 

698 PRINT:PRINT 


E : ": PRINT 
NT TAB(/7);1908+A 
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LE PROGRAMME 
Lignes 39 à 99 : initialisation 


La ligne 49 remplit les tableaux M${) et M{) avec le nom et le nom- 
bre de jours par mois avec les DATAs des lignes 50 et 60. 


La ligne 89 remplit, elle, le tableau J$() avec le nom des jours de la 
semaine. 


Lignes 299 à 259 : saisie des dates 


Les lignes 200 à 239 saisissent successivement le jour, le mois et 
l'année de naissance, puis le jour, le mois et l’année actuelle. 


En cas d'erreur, la ligne 240 affiche le message “IMPOSSIBLE”. 


Lignes 399 à 419 : calcul du nombre de jours 


On calcule d'abord le nombre de jours entre la date de naissance 
et le 31 décembre de cette même année. Puis le nombre de jours 
entre l'année de naissance + 1 et l’année actuelle — 1. Pour termi- 
ner on ajoute le nombre de jours entre le 1°" janvier de l'année 
actuelle et la date désirée. 


Lignes 599 à 559 : calcul du jour de la semaine 
On calcule pour cela le nombre de jours entre le 1°" janvier 1900 et 
la date de naissance. 


Lignes 699 à 699 : résultats 


Les lignes 320 à 500 affichent sur l'écran les résultats des calculs 
précédents : 


# La date de naissance 

# Le nombre de jours vécus 

# Le nombre d'heures (on multiplie par 24 le nombre de jours) 
# Le nombre de minutes (on multiplie par 1440) 

# Le nombre de secondes (on multiplie par 86400) 


On utilise dans ces lignes l'instruction PRINT USING pour cadrer 
les chiffres sur l'écran. 
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LISTE DES VARIABLES : 


A année de naissance 

I indice de boucle FOR/NEXT 

J jour de naissance 

J$() noms des jours de la semaine 

M mois de naissance 

M$() noms des mois 

nombre de jours par mois 

nombre de jours vécus 

nombre de jours entre le 1/1/1900 et la date de nais- 
sance 

jour actuel 

mois actuel 

année actuelle 

jour de la semaine (exemple : Y=1— lundi) 


<S<c vrz 
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CALENDRIER 


Comme son titre l'indique, ce programme permet d'obtenir sur 
l'écran un calendrier complet d'une année du vingtième siècle. 


En effet, après avoir tapé RUN, l'ordinateur demande l'année du 
calendrier que vous souhaitez. 


Cette année doit être rentrée sous la forme de ses deux derniers 
chiffres. Exemple : entrez 84 pour 1984 ; cela limite les demandes 
de 9 à 99, c'est-à-dire des années 1900 à 1999. 


L'ordinateur affiche le calendrier mois par mois dès que vous ap- 
puyez sur une touche (appuyez sur “F” pour une autre année). Il 
précise, à gauche et à droite de chaque mois, le nombre de jours 
passés et à passer. 


De quoi jeter un coup d'œil discret vers 1990 ou 1999 | 








[S47 SEPTEME. 85 122] 


m| J y 5 
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CALENDRIER 


DEBUT 










Initialisation 
des mois de 
l'année — M$ 








Entrer 
l'année 










Calcul du 

jour de la 
semaine au 
1°" janvier 







Année 
bissextile 
£ 











Nombre de jours 
pour le mois 
1 NJ 
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Année 
bissextile 
fevrier = 29) 












Afficher nombre 
de jours 
écoulés, mois, 
année, jours 
restants 


















Afficher n° 
du jour 

















FIN 
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19 REM CALENDRIER 

20 REM -------------------------------- 

30 DIM M$(12),N(12) 

40 DATA JANVIER,31,FEVRIER,28,MARS, 31 

50 DATA AVRIL,30,MAI,31,JUIN, 38, JUILLET,31,AOUT, 31 
60 DATA SEPTEMB.,38,O0CTOBRE, 31, NOVEMBRE, 30, DECEMBR 
E.:31 

70 FOR I1=1 10 12 

80 READ MS(I),N(I) 

90 NEXT I 

188 REM ------------------------------- 

198 REM CALCUL DU JOUR 

200 J-0:B-0 

218 MODE 1:1NK @,0:INK 1,15:BORDER ®@ 

220 INPUT"ANNEE ";U 

230 IF U>99 THEN 218 

240 M=(U#365)+INT((U-1)/4) 

250 IF U=8 IHEN M=0 

260 Y-M-(7*INT(M/7))+1 

270 IF INIT(U/4)=U/4 THEN Bz=1 

280 REM ------------------------------- 

298 REM EDITION 

300 FOR I=1 10 12 

318 NJ=N(I) 

320 IF I=-2 AND B=1 THEN NJ=29 

330 CLS:PRINT:PRINT 

340 PRINT TAB(9);J; TAB(18-LEN(MS(I))/2);M$S(I);U;TA 
B(2/);USING"###"; 365+B-J 

350 PRINT:PRINT 

368 PRINT IAB(18);" L M M J V S D" 

370 PRINT:PRINT:PRINT 

380 FOR K=1 10 NJ 

394 PRINT IAB((Y-1)#3+10); USING"##";K; 

408 Y=Y+1 

4106 IF Y=8 THEN Y=1:PRINT:PRINT 

426 NEXT Kk 

4306 J=J+NJ 

440 MOVE 125,390:DRAW 480,398:DRAW 480,50:DRAW 125 
, 58:DRAW 125,390 

450 MOVE 138,3/8:DRAW 475,370:DRAW 475,358:DRAW 13 
0,3508:DRAW 130,370 

468 FOR K=1 TO 8 

478 MOVE 88+K+48,330:DRAW 88+K+48,70 

480 NEXT Kk 

498 MOVE 136,330:DRAW 471,330 

508 MOVE 136,7/78:DRAW 471,70 

518 AS=INKEYS:IF AS$="" THEN 518 ELSE IF AS="F" THE 
N RUN 

528 NEXT I 

530 GOTO 208 
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LE PROGRAMME 
Lignes 39 à 99 : initialisation 


Après dimensionnement des tableaux M$ et N, on remplit ceux-ci 
avec la liste des noms des mois de l'année et le nombre de jours 
par mois. 


Lignes 299 à 279 : calcul du jour de la semaine 


On saisit l'année du calendrier dans la variable U. Cette variable est 
alors utilisée pour connaître le numéro du jour de la semaine du 
1%" janvier de cette année (lundi=1, mardi=2, etc.). 


En ligne 270, on regarde s'il s'agit d'une année bissextile ; si c'est 
le cas, on met la variable B à 1. 


Lignes 399 à 539 : édition du calendrier 


Pour chaque mois de l'année, on extrait du tableau N le nombre de 
jours par mois (variable NJ). 


S'il s'agit du mois de février (1-2), on vérifie le contenu de la varia- 
ble B (année bissextile). Si c'est le cas, on place 29 dans la variable 
NJ au lieu de 28 comme il est indiqué dans le tableau N(). 


La ligne 349 affiche le nombre de jours écoulés (variable J), le nom 
du mois (tableau MS), l'année étudiée (variable U) et le nombre de 
jours restants (365+B—J). 


La variable Y donnant la position du jour suivant, on affiche le 
numéro de ce jour en utilisant l'instruction TAB(Y). 


Quand Y=8 (le 8° jour de la semaine !), on remet cette variable à 1, 
et ainsi de suite. 


En ligne 439, on incrémente le nombre de jours écoulés du nombre 
de jours que l'on vient d'afficher. 
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LISTE DES VARIABLES : 


A$ dernière touche enfoncée 

B B=1 si année bissextile 

| indice de boucle FOR/NEXT 

J nombre de jours écoulés 

K indice de boucle FOR/NEXT pour l'édition des jours 
K$ valeur de K sous forme de chaîne de caractères 

M nombre de jours écoulés depuis le 1°" janvier 1900 
M$() liste des mois 

N() nombre de jours par mois 

NJ nombre de jours du mois étudié 

U année à étudier 

Y numéro du jour de la semaine (lundi=1, mardi=2, ...) 
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HORLOGE 


Un nouveau rôle pour votre AMSTRAD. Vous pourrez l'installer sur 
un meuble de votre salon où pourquoi pas dans votre cuisine ! 


Entrez l'heure au clavier en laissant un peu d'avance. Dès que le 
dessin est terminé, appuyez sur n'importe quelle touche pour mettre 
la pendule en route. 


Le compteur interne utilisé est d'une très grande précision. |l per- 
met d'obtenir une variation inférieure à une seconde par jour. 


Assurez-vous que vous ne tapez que des chiffres de Q à 12. 
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HORLOGE 















Afficher 
l'horloge 


Touche 
appuyée ? 





non 








Incrémenter 
les secondes 


Secondes - 60 
? 





Incrémenter 
les minutes 





Minutes 
divisibles par 
12? 


non 


Incrémenter 
les heures 





Effacer les 
3 aiguilles 





Afficher les 
3 aiguilles 
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19 REM HORLOGE 

DD REM = en Se 
38 MODE @:INK @6,6:INK 1,24:BORDER 6 

40 INPUT "H,M,S";H,M,S 

50 H=H»5+INT(M/12) 

68 DIM X(62),Y(62) 

76 GOSUB 508 

80 IF INKEYS="" THEN 88 

180 REM. meer ee Er nuesenno sen 
198 REM MOUVEMENT DES AIGUILLES 

200 EVERY 58 GOSUB 228 

210 GOTO 218 

220 S=S+1 

230 IF S<60@ THEN 320 

240 S-0:M=M+1:IF M<60 THEN 260 

258 M=0 

260 IF INT(M/12)<>M/12 THEN 310 

270 H=H+1 

280 IF H<60 THEN 300 

290 H=0 

300 PLOT 320,200:DRAW 320-60%X(H+1),200-60=*Y(H+1), 


310 PLOT 3206,208:DRAW 320-80=X(M+1),200-80=Y(M+1), 
320 PLOT 3206,200:DRAW 328-95#X(S+1),200-95#Y(S+1), 
330 PLOT 320,200:DRAW 320-60#X(H+2),200-60#Y(H+2), 
340 PLOT 320,200:DRAW 328-80#X(M+2),200-88+Y(M+2), 


1 

350 PLOT 320,200:DRAW 320-95#X(S+2),280-95#Y(S+2), 
1 

360 RETURN 

489 REM ------------"--- 

498 REM DESSIN DE L'HORLOGE 

590 CLG 

510 PLOT 500,200 

520 FOR I=6 TO 6.3 STEP PI/38 

530 DRAW 320+180»*C0S(1),200+188*SIN(I) 

549 NEXT I 

559 FOR I=-PI TO PI STEP 06.104717 

568 PLOT 320-180*SIN(1),208-188*C0S(1) 

570 X(Z+2)=SIN(I):Y(Z+2)=COS(I) 

580 IF INT(Z/5)<>Z/5 THEN 648 

590 DRAW 328-118*SIN(1),280-110*C0S(1) 

600 IF Z-0 THEN 640 

610 IF Z/5=12 THEN LOCATE 10.5-4.5*SIN(1),13+8#C0S 
(I):PRINT RIGHTS(STRS(Z/5),2):GOTO 648 

620 LOCATE 10.5-4.5#SIN(I),13+8#COS(I):PRINT RIGHT 
S(STRS(Z/5),1) 

630 IF Z/5>9 THEN LOCATE 9.5-4.5#SIN(1),13+8*COS(I 
):PRINT MIDS(STRS(Z/5),2) 

640 Z-Z+1 

658 NEXT I 

668 X(1)=X(61):Y(1)=Y(61) 

670 RETURN 
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LE PROGRAMME 
Lignes 39 à 89 : initialisation 


La ligne 49 saisit l'heure (heures, minutes et secondes). Pour plus 
de réalité, la petite aiguille est déplacée toutes les 12 minutes et 
non toutes les heures. On multiplie donc la variable H par 5 (12 
minutes X 5 = 60 minutes = 1 heure). On l'incrémente aussi du 
nombre de fractions de 12 minutes contenues dans la variable M. 


Lignes 299 à 369 : mouvement des aiguilles 


Le compteur défini en ligne 200 fait appel au sous-programme en 
229 toutes les secondes. Le compteur S est alors incrémenté de 1. 


Les lignes 240 à 299 modifient le contenu de M quand S=60, puis 
H toutes les 12 minutes. 


Les lignes 309 à 350 affichent les trois aiguilles par DRAW grâce 
aux deux tableaux X() et Y({) définis en 590. 

Lignes 599 à 679 : dessin de l'horloge 

Les lignes 520 à 549 dessinent un cercle sur l'écran, tandis que les 
lignes 550 à 650 affichent les heures et des tirets pour les secondes. 


Les coordonnées de ces derniers sont conservées dans les ta- 
bleaux X{) et Y() ce qui facilitera l'affichage des aiguilles. 


LISTE DES VARIABLES : 


AS$ dernière touche appuyée 

H compteur des heures 

I indice de boucle FOR/NEXT 
M compteur des minutes 

S compteur des secondes 


X()et Y(} gardent les coordonnées des aiguilles sur l'écran 
Z compteur des minutes dans l'affichage. On affiche les 
heures seulement toutes les 5 minutes. 
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AGENDA ELECTRONIQUE 


Pour ne plus oublier de rendez-vous, ou consulter d'un seul coup 
le planning de votre semaine, utilisez donc ce programme d'agen- 
da. 


Il est composé de trois parties : 


# SAISIE : permet de saisir la date, l'heure et les commentaires 
sur un rendez-vous ou un fait précis. 


“ RECHERCHE : en donnant une date de début et de fin, le pro- 
gramme affiche tous les enregistrements compris dans cet in- 
tervalle. 


# SAUVEGARDE : sauve le fichier sur cassette. 


COMMENTAIRES 


Z 
© 


UE 

LE GAZ 
PATRON 
NFANTS À L'’'E 
MARCEL 


| 
COEO COEDEU he | 
cicien-hichchctl 
COTE NMDE 
carmezzunc 
mnZ mou 
ne Corn 
rer 
VD 20 ET 
OC D DDC 
Zzm ZrK Zz 
30 Parme 
T2 
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AGENDA ELECTRONIQUE 


DEBUT 









Première 
utilisation 
? 






Lire le 
fichier sur 
cassette 





du rendez-vous 












les commentaires 





Suivant réponse R 


















Entrer 


Entrer date 
de début et 
date de fin 


la date 








Afficher tous 
les rendez-vous 

entre ces 2 
dates 


Entrer 
l'heure et 































Ecrire le 
fichier 
sur cassette 
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2 R 
220 
230 
248 
250 
288 
298 
300 
INT 
318 
328 
330 
H$ : 
348 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
468 
470 
480 
498 
508 
510 
520 
530 
548 
550 
568 
570 
580 
590 


REM AGENDA ELECTRONIQUE 

RER menu iss 

DIM D(1888),H(1888),C5(1888),J(12) 
ES=STRINGS(39,32)+CHRS(13) 

FOR I=1 TO 12:READ J(I):NEXT I 

DATA 31,29,31,30,31,30 

DATA 31,31,306,31,30,31 

MODE 1:INK @,8:INK 1,15:PAPER @:PEN 1:BORDER 8 
INPUT*PREMIERE UTILISATION (O/N)";RS 


IF R$="O" THEN 2608 

CLS:PRINT"METTEZ LE DATACORDER EN LECTURE" 
OPENIN "! AGENDA" 

IF EOF THEN 178 

N=N+1 

INPUT#9,D(N),H(N):LINE INPUT#9,CS(N) 

GOTO 130 

CLOSEIN 

REM ------------------------------- 

REM MENU 


CLS:PRINT TAB(18); "MENU": PRINT 

PRINT TAB(13);"1 SAISIE 1":PRINT TAB(13);" 
ECHERCHES 2":PRINT TAB(13);"3 SAUVEGARDE 3" 
PRINT:PRINT TAB(14);"VOTRE CHOIX ?"; 
RS=INKEYS:IF R$="" THEN 230 


R=VAL(RS):IF R<1 OR R>3 THEN 238 

ON R GOTO 388,400, 880 

REM ---------"---"--- 

REM SAISIE 

CLS:PRINT TAB(18); "SAISIE D'UN RENDEZ-VOUS":PR 
GOSUB 700 

N=N+1 

LOCATE 18,14:PRINT ES; "HEURE : ";:LINE INPUT 


H(N)=INT(VAL(H$)) 

IF H(N)<8 OR H(N)>24 THEN 330 

LOCATE 1,17:LINE INPUT"COMMENTAIRES: ";CS$(N) 
D(N)=M*100+J 

GOTO 268 

RM t-on oseusse 

REM RECHERCHES 
CLS:PRINT TAB(15); 
PRINT:PRINT TAB( 
GOSUB 708 
DD=M»100+9J 
CLS:PRINT TAB(15);"RECHERCHES" 
PRINT:PRINT TAB(14); "DATE DE FIN" 

GOSUB 760 

DF=M»100+) 

CLS 

PRINT'DATE HH COMMENTAIRES" 

PRINT 6 Scenes unes " 
FOR I=1 TO N 

IF D(I)<DD OR D(I)>DF THEN 600 
M=INT((D(I))/188) 
J=D(I1)-M*100 

PRINT USING"##/";)J; 
PRINT USING"## Me HCD): 
FOR J=8 TO LENCO $(1))/25 
PRINT TAB(18);MIDS(CS(I) 
NEXT J 


; "RECHERCHES" 
4); "DATE DE DEBUT" 


rx 


,1+J#25,25) 


EEE 
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600 NEXT I 
610 IF INKEY$S<>CHR$S(13) THEN 610 
628 GOTO 200 


680 REM ------------- 
699 REM SAISIE D'UNE DATE 
708 LOCATE 10,16:PRINT ES; "JOUR : ";:LINE INPUT 


J$:J=VAL(J$) 

718 IF J>31 OR J<1 THEN 768 

720 LOCATE 10,12:PRINT ES; "MOIS : ";:LINE INPUT 
MS:M=VAL(MS) 

730 IF M>12 OR M<1 THEN 728 

748 IF J>J(M) THEN 708 

750 RETURN 

780. REM. 22250 re tee 

798 REM SAUVEGARDE 

808 CLS:PRINT"APPUYEZ SUR ENTER QUAND LE DATACORDE 
R EST PRET POUR L'ENREGISTREMENT" 

810 LINE INPUT RS 

828 OPENOUT "! AGENDA" 

830 FOR I=1 TO N 

840 PRINT#9,D(I),H(I),CS(1) 

850 NEXT I 

868 CLOSEOUT 

870 CLS:PRINT"A LA PROCHAINE !" 

880 END 
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LE PROGRAMME 

Lignes 39 à 179 : initialisation 

On place dans le tableau J() le nombre de jours par mois. 

Si ce n’est pas la première utilisation, on lit sur la cassette le fichier 
déjà créé antérieurement. 

Lignes 299 à 259 : menu 

Ces lignes ventilent sur le reste du programme suivant le choix de 
l'utilisateur. 

Lignes 399 à 379 : saisie 


Pour saisir un rendez-vous, on fait appel au sous-programme en 
709 (saisie des dates). 


Les lignes 330 et 359 demandent à l'utilisateur l'heure et les com- 
mentaires éventuels sur ce rendez-vous. 

Lignes 499 à 629 : recherches 

Le programme demande les dates de début et de fin pour les re- 
cherches. On utilise aussi pour cela le sous-programme de saisie 
des dates en 700. 

Les lignes 519 à 600 parcourent par une boucle FOR/NEXT l'inté- 
gralité du fichier, et affichent les enregistrements compris entre la 
date de début et la date de fin. 

Lignes 799 à 759 : saisie d'une date 

Ces lignes saisissent au clavier le jour et le mois. Les lignes 710, 
739 et 740 vérifient les éventuelles erreurs. 


Lignes 899 à 889 : sauvegarde 


Ces lignes sauvent sur cassette le fichier dès qu'une touche a été 
appuyée. 
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LISTE DES VARIABLES : 


E$ caractères d'effacement d'une ligne 
CS!) liste des commentaires 

D() liste des dates 

DD date de début des recherches 

DF date de fin des recherches 

H() liste des heures 

H$ heure du rendez-vous 

| indice de boucle FOR/NEXT 

J jour du rendez-vous (numérique) 
J() nombre de jours par mois 

J$ jour du rendez-vous 

M heure du rendez-vous (numérique) 
M$ heure du rendez-vous 

N nombre d'enregistrements dans le fichier 
RS choix de l'utilisateur 

R valeur numérique de R$ 
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THEME 6 
VOTRE FORME 
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POIDS IDEAL 


Ce programme ne vous donnera pas votre poids idéal sur le plan 
esthétique, car cela dépend surtout de l’image physique que l'on 
veut présenter. Mais il calcule le poids idéal dont se servent les 
assureurs-vie pour juger de la longévité éventuelle de leurs clients 
selon le rapport poids-taille. 


Donnez votre âge, votre taille et votre carrure : AMSTRAD se charge 
des calculs et vous révélera le poids le plus favorable à votre santé. 





VOTRE FOLIDS LICE AE. 
EST DE :- 


TI KG S 


Ca #+ Cru 3 EE KT 
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POIDS IDEAL 


DEBUT 













Entrer 
Age, taille 
et carrure 







Entrer 
sexe féminin 
oui/non 











Sexe 


non 
féminin ? E 








Calculer 
le poids 
idéal 


Afficher 


le 
poids idéal 


Afficher 
la 
fourchette 
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268 


REM POIDS IDEAL 


REM ----------- 


MODE 1:INK 8,6:INK 1,24:BORDER 6:PAPER @:PEN 1 


INPUT "VOTRE AGE ‘";A 


IF A<8 OR A>108 THEN 40 


INPUT "TAILLE (EN CMS 


NL 


IF T<30 OR T>258 THEN 68 
INPUT "CARRURE (ETROITE=1,MOY.=2,LARGE=3) ";C 


IF C<1 OR C>3 THEN 88 
INPUT "SEXE FEMININ 


REM CALCULS 


MODE @:PRINT:PRINT:PRINT:PRINT:PRINT 
PRINT “ VOTRE POIDS IDEAL":PRINT 
PRINT 1AB(7); "EST DE:"::PRINT:PRINT 


(O/N) ";S$ 
IF S$<>"O" AND S$<>"N" THEN 108 

IF S$="O" THEN S=0.8 ELSE S=0.9 

REM ------"m css 


PRINT TAB(6); INT((T-1@0+C+(A/20))#S);"KGS" 


PRINT:PRINT 


PRINT TAB(4);"A + OÙ -";C;"KGS" 


IF INKEYS<>CHRS(13) 


THEN 260 
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LE PROGRAMME 
Lignes 39 à 129 : saisie des éléments 


Le programme saisit successivement l'âge, la taille, la carrure et le 
sexe du sujet. 


Les lignes 59, 70, 90 et 119 vérifient que les réponses soient vrai- 
semblables. 
Lignes 299 à 269 : calculs 
Ces lignes calculent la fourchette de votre poids idéal en appliquant 
la formule : 

taille — 100 + carrure + âge/20 


le tout multiplié par 9.8 pour les femmes et 0.9 pour les hommes. 


La fourchette est donnée par la carrure (entre 1 et 3 kilogrammes). 


LISTE DES VARIABLES : 

A âge 

C carrure 

S$ sexe féminin (oui ou non) 

S multiplicateur suivant le sexe 
T taille en cm 
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COURBES POIDS-TAILLE 


Destiné aux jeunes parents, ce programme permet de tracer sur 
l'écran les courbes du poids et de la taille d'un enfant de moins de 
deux ans. 


AMSTRAD traduit simplement sous forme graphique les rensei- 
gnements portés sur le carnet de santé remis aux heureux parents 
le jour de la naissance. 


Il saisit chaque semaine le poids et la taille, ou le poids et la taille à 
la naissance s'il s'agit de la première utilisation. 


Après le tracé des courbes, le programme demande si vous désirez 
entrer une autre semaine avant la sauvegarde du fichier sur cas- 
sette. Vous pouv2z ainsi entrer plusieurs semaines, voire plusieurs 
mois, en une seule fois. 


Au bout de cinq semaines, vous pouvez déjà apprécier l'évolution 
du poids et de la taille de votre bébé. 





ls 
tm 
N 


DH COCO UI OAI CO LD res tes MT 
a) 
œ 
Lee] 


20000 ur 
Grow NC 


OmVWDUNADUOMMMR ND 
OO0000000SHNY Zn 
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COURBES POIDS/TAILLE 


Première 
utilisation 
? 


Lire le 
fichier sur 
cassette 


S = nb de 
semaines 








Entrer poids 
et taille de 
la semaine S 


Tracer 
les 
axes 


Tracer les 
deux 
courbes 


Autre 


semaine 
? 





Ecrire le 
fichier sur 
cassette 
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————————————————— 0 


19 REM COURBES POIDS/TAILLE 

DO IREM ===" ue ns 

38 DIM P(104),T(184) 

40 MODE 1:INK 6,8:INK 1,15:BORDER @ 

59 INPUT'PREMIERE UTILISATION (O/N)";R$ 

60 IF RS$S="O" THEN 206 

70 CLS:PRINT"METTEZ LE DATACORDER EN LECTURE" 

80 OPENIN “!POIDS" 

98 FOR I=@ TO 104 

188 INPUT#9,P(I),T(I 

1106 IF S=@ AND P(I)- 

120 NEXT 

130 CLOSEIN 

189 REM ---------"- 

198 REM DONNEES DE LA SEMAINE 

200 CLS 

210 IF S-@ THEN PRINT"ENTREZ LES DONNEES A LA NAIS 

SANCE":PRINT:GOTO 258 

2286 PRINT"ENTREZ LES DONNEES DE LA";S; 

230 IF S=1 THEN PRINT"ere"; ELSE PRINT"eme"; 

248 PRINT" SEMAINE": PRINT 

250 INPUT"POIDS (EN KILOGRAMMES) ";P(S) 

260 IF P(S)>13 THEN 250 

270 INPUT"TAILLE (EN CENTIMETRES) ";T(S) 

280 IF T(S)>13@ THEN 270 

298 IF S=0 THEN S=1:GOTO 268 

380 REM -----"2-- musee 

398 REM COURBES DE LA SEMAINE 

400 CLS:PRINT"TAILLE/POIDS":PRINT" CMS KG" 

41@ LOCATE 12,3:PRINT""":LOCATE 39,17:PRINT">" 

420 MOVE 182,354: DRAW 182,136: DRAW 624,136: MOVE 18 

4,354: DRAW 184,136 

430 FOR I=8 TO 13 

440 LOCATE 1,1+4:PRINT 130-I*10:LOCATE 7,I+4:PRINT 
13-I 

450 MOVE 184,344-I*16:DRAW 176,344-I*16 

460 NEXT I 

470 FOR I=1 TO 26 

480 AS=RIGHTS(" "+STRS(I*4),3) 

498 LOCATE I+12,19:PRINT LÉFTS(AS$,1):LOCATE I+12, 2 

@:PRINT MIDS(AS$,2,1) 

500 LOCATE I+12,21:PRINT RIGHTS(AS,1) 

510 MOVE I*16+184,138:DRAW I*16+184,130 

520 NEXT I 

530 LOCATE 30,23: PRINT"SEMAINES" 

540 PLOT 182,136+P(0)«16 

550 FOR I=1 TO S 

560 DRAW 182+1*4,136+P(I)#16 

570 NEXT I 

5808 LOCATE 13+1/4,17-P(S):PRINT"P" 

598 PLOT 182 .136+(T (8)/18)*16 

600 FOR I=1 TO 


——————————————————.—2 


) 
0 THEN S=I 
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618 DRAW 182+1*4,136+(T(1)/18)*16 

628 NEXT I 

630 LOCATE 13+1/4,17-(T(S)/18):PRINT"T" 

648 LOCATE 1,24:PRINT'UNE AUTRE SEMAINE (O/N) "; 
650 RS=INKEYS:IF R$="" THEN 650 

668 IF R$="O0" THEN S=S+1:GOTO 280 

GRO: REN--nRresmes resp osseuse 

690 REM SAUVEGARDE 

708 CLS:PRINT"APPUYEZ SUR ENTER QUAND LE DATACORDE 
R EST PRET POUR L'ENREGISTREMENT" 

710 LINE INPUT RS 

720 OPENOUT “!POIDS" 

730 FOR I=8 TO 184 

748 PRINT#9,P{I),T(I) 

750 NEXT I 

768 CLOSEOUT 

770 CLS:PRINT"A LA SEMAINE PROCHAINE !" 

780 END 
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LE PROGRAMME 

Lignes 39 à 139 : initialisation 

Si ce n’est pas la première utilisation, on lit sur la cassette le fichier 
déjà créé antérieurement. 

Lignes 299 à 299 : données de la semaine 

Le programme demande le poids et la taille de la semaine S. S'il 
s'agit de la première utilisation (S=0Q), la ligne 219 affiche le mes- 
sage “données à la naissance”. 

Lignes 499 à 669 : courbes de la semaine 


Ces lignes dessinent sur l'écran les courbes du poids et de la taille 
de l'enfant de la naissance à la semaine en cours. 


Les lignes 400 à 460 affichent l'axe des ordonnées, les lignes 470 à 
520 les valeurs des poids et des tailles, et les lignes 530 à 630 tra- 
cent l’abscisse et les deux courbes. 

La ligne 660 renvoie à la saisie si l’on désire entrer les données de 
la semaine suivante avant la sauvegarde. 

Lignes 709 à 789 : sauvegarde 

Ces lignes sauvent sur cassette le fichier dès qu'une touche a été 


appuyée. 


LISTE DES VARIABLES : 


A$ poids/tailles à afficher (graduations de l'ordonnée) 
I indice de boucle FOR/NEXT 

P() liste des poids 

RS réponse de l'utilisateur 

S numéro de la semaine (taille du fichier) 

T{) liste des tailles 


200 AMSTRAD EN FAMILLE 








{ tas) S 





2 = 


AMSTRAD EN FAMILLE 


Re? | _ 








THEME 7 
BRICOLAGE 


PAPIER PEINT 


Ce programme permet de calculer en fonction de certaines carac- 
téristiques le nombre de rouleaux à acheter pour pouvoir tapisser 
une pièce ainsi que le rendement et le coût de l'opération. 


Au départ, l'ordinateur vous demande le prix du rouleau, sa largeur 
et sa longueur, puis le périmètre et la hauteur de la pièce. 


Ces mesures sont à entrer en mètres pour les calculs de l’ordina- 
teur, après lesquels il vous précise le nombre de rouleaux à ache- 
ter, le nombre de lés que vous pouvez découper dans chaque 
rouleau, la longueur des chutes pour les raccords éventuels et le 
reste inutilisé de papier. 


De même il vous donne le coût total de votre achat et vous chiffre 
les pertes de papier. 


Vous pouvez garder AMSTRAD à côté de votre colle et de vos pin- 
ceaux : il sera lui aussi un outil de travail précieux. 





PAPIER PEINT 


DE 4 oi Z'Z 
OQAmOrEE OC 

M2OZXS MO 
BOPOOPANS 
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PAPIER PEINT 


Entrer : Prix du 
rouleau, largeur papier 
longueur des rouleaux, 

périmètre de la pièce 
hauteur des murs. 















Calculer : Nombre de lés, 
nombre de rouleaux, longueur 
des chutes par 
rouleau, nombre total de 
lés, nombre de lés et longueur 
de chute sur le 
dernier rouleau 





Calculer : Prix total, 
longueur totale des 
chutes, rendement 








Afficher : nombre de 
rouleaux, nombre de lés/ 
rouleau, longueur des. 
chutes, prix de revient, 
rendement 
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1 REM PAPIER PEINT 
DDRM Ses ce pense ne... 

38 MODE 1:INK @,8:INK 1,15:BORDER @ 

48 PRINT TAB(14); "PAPIER PEINT" 

58 PRINT:PRINT:PRINT 

68 INPUT"PRIX DU ROULEAU";PR 

70 IF PR<1 THEN PRINT"C'EST PAS CHER. DONNEZ MOI L 
"ADRESSE !":GOTO 60 

80 INPUT"LARGEUR DU PAPIER"; LP 

98 IF LP<@.1 THEN PRINT"C'EST DU PAPIER PEINT OÙ D 
U PAPIER TOILETTE ?":GOTO 80 

109 INPUT'LONGUEUR DES ROULEAUX";LR 

119 IF LR<1 THEN PRINT"VOUS VOUS ETES FAIT ROULER 

1“. GOTO 108 

128 INPUT"PERIMETRE DE LA PIECE";CP 

130 IF CP>208 THEN PRINT"VOUS HABITEZ VERSAILLES J 
E SUPPOSE ?":GOTO 128 

140 IF CP<i THEN PRINT'VOUS TAPISSEZ VOTRE POULAIL 
LER ?":GOTO 128 

150 INPUT"HAUTEUR DES MURS"; HM 

168 IF HM<1 THEN PRINT'C'EST BAS DE PLAFOND CHEZ V 
OUS !":GOTO 158 

200 REM == eue ndiensn 

298 REM CALCULS 

308 NL=INT(LR/HM) 

318 LC=LR-NL#HM 

320 NR=INT((CP/(NL#LP))+8.99999) 

330 NTL=INT((CP/LP)+8.99999) 

348 ND=NTL-((NR-1)#NL) 

358 LD=LR-(ND*HM) 

368 PT=NR«PR 

370 TC=((NR-1)#LC)+LD 

380 R=TC/((NR#LR)/108) 

489 REM --------------- 

498 REM RESULTATS 

500 CLS 

518 PRINT TAB(14); "PAPIER PEINT" 

528 PRINT:PRINT: PRINT 

530 PRINT'NOMBRE DE ROULEAUX:";NR 

54@ PRINT"'NOMBRE DE LES PAR ROULEAU: ";NL 

558 PRINT"IL Y A";NR-1; "CHUTES DE";USING" ##.## "; 
LC;:PRINT"METRES" 

560 PRINT"PLUS";USING" ##.4## ";LD;:PRINT'METRES SU 
R LE DERNIER ROULEAU"; 

570 PRINT"IL RESTE DONC";USING" #4#.## ";TC;: PRINT" 
METRES DE CHUTE":PRINT"POUR LES RACCORDS" 

580 PRINT'LE PRIX TOTAL EST DE";PT; "FRANCS" 

590 PRINT'ET LES PERTES DE"; USING" ##.# ";R;:PRINT 
LE, 

608 PRINT"SOIT"; USING" ###.## ";PTæR/100;:PRINT"FR 
ANCS" 

618 IF INKEYS<>CHRS(13) THEN 610 

628 RUN 


AMSTRAD EN FAMILLE 





LE PROGRAMME 

Lignes 39 à 169 : saisie des paramètres 

On saisit à la suite le prix, la largeur et la longueur d'un rouleau, 
puis le périmètre et la hauteur des murs de la pièce à tapisser. 
Lignes 399 à 389 : calculs 


Cette partie du programme calcule toutes les dimensions des lés, 
des chutes et la composition du dernier rouleau. 


La valeur 9.99999 ajoute un rouleau de plus dans le cas où le der- 
nier est incomplet. 

Lignes 599 à 629 : résultats 

Toutes les données calculées précédemment sont affichées à 


l'écran, avec en plus le prix des pertes sur les chutes et le dernier 
rouleau s'il est incomplet. 


LISTE DES VARIABLES : 

CP périmètre de la pièce 

HP hauteur des murs 

Le longueur de la chute par rouleau 

LD longueur de la chute sur le dernier rouleau 
LP largeur du papier 

LR longueur des rouleaux 

ND nombre de lés sur le dernier rouleau 
NL nombre de lés par rouleau 

NR nombre de rouleaux 

NTL nombre total de lés 

PR prix du rouleau 

PT prix total du papier peint 

R rendement 

TC longueur totale des chutes 
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DISPOSITION DES MEUBLES 


Le mieux pour changer votre appartement est encore d'en modifier 
la disposition des meubles. 


Le programme est composé de deux parties : 


# LE GENERATEUR DE CARACTERES : vous devez dessiner avec 
cet utilitaire la forme des meubles en utilisant les quatre flèches 
du clavier. La touche COPY permet de changer la couleur d'un 
point élémentaire. 


Touches de fonction : 


C : change le numéro du caractère en cours. 
F : donne accès au deuxième programme (disposition des 
meubles). 


# DISPOSITION DES CARACTERES SUR L'ECRAN : les quatre 
flèches permettent de déplacer le caractère en cours dans toutes 
les directions et sur toute la surface de l'écran. Comme pour le 
programme de définition, la touche C permet de changer le nu- 
méro du caractère en cours et la touche F de passer à l'autre 
partie (générateur de caractères). 





CARACTERE No 3 
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18 REM DISPOSITION DES MEUBLES 

DA REM rm nhe en nasssesentésss use 

38 MODE 1:TAGOFF 

40 DIM S(16,16,16),XX(16),YY(16),X(16),Y(16) 
50 SYMBOL AFTER 128 

60 SYMBOL 232,255,255,255,255,255,255,255,255 
76 SYMBOL 233,255,128,128,128,128,128,128,128 
ge FOR I1=128 TO 192:SYMBOL 1,06,0,8,0,0,0,8,8:NEXT 
99 S=1:X=8:Y=8 

188 FOR I=1 TO 16 

118 X(I1)=1:Y(1)=1 

120 NEXT I 

180 REM:=--"-22-"u22 mass uadeudenss 

199 REM DESSIN DU GENERATEUR 

208 MODE 1 

218 FOR 1-8 TO 16 

220 PLOT 6,399-I*16:DRAWR 256,8 

230 PLOT I*16,399:DRAWR @,-256 

248 NEXT I 

25@ LOCATE 1,25:PRINT "CARACTERE No";S; 

268 XX=25:YY=1 

270 FOR I=1 TO 16 

280 LOCATE XX, YY:PRINT "No";l 

298 LOCATE XX+1,YY+1:PRINT CHRS(124+1#4);CHRS(125+ 


I1*4) 

308 LOCATE XX+1,YY+2: PRINT CHRS(126+1#4);CHRS(127+ 
I*4) 

318 XX(I)=XX+1: YY(I)=YY+1 

320 YY=YY+3:IF YY=25 THEN YY=1:XX=XX+8 

330 NEXT I 

390 REM === 
390 REM AFFICHE UN CARACTERE 

400 FOR P=1 TO 4 

418 IF P>2 THEN YY=8 ELSE YY=0 

420 IF P/2=INT(P/2) THEN XX=8 ELSE XX=0 
430 FOR I=1 TO 8:FOR J=7 TO @ STEP -1 

448 LOCATE XX+8-J, YY+I 

458 IF S(S,P,I) AND 2°J THEN PRINT CHRS(232) ELSE 
PRINT CHR$(233) 

468 NEXT J,I,P 

478 GOTO 758 

589 REM ------------"" 
599 REM DEPLACEMENTS 

600 IF X<9 THEN P=1:XX=X-1 ELSE P=2:XX=X-9 
610 IF Y<9 THEN YY=Y ELSE P=P+2:YY=Y-8 

620 AS=INKEYS:IF A$="" THEN 620 

630 IF A$="C" THEN GOSUB 908:GOTO0 468 

640 IF A$="F" THEN 1000 

650 IF AS<>CHRS(224) THEN 700 


668 IF S(S,P,YY) AND 2°(7-XX) THEN S(S,P,YY)=S(S,P 
,YY)-2"(7-XX) ELSE S(S,P,YY)=S(S,P,YY)+2"(7-XX) 
670 SYMBOL 123+(S#4)+P,S(S,P,1),S(S,P,2),S(S,P,3), 
S(S,P,4),S(S,P,5),S(S,P,6),S(S,P,7),S(S,P,8) 

688 LOCATE XX(S),YY(S):PRINT CHRS(124+S%4);CHRS (12 
5+S4) 

690 LOCATE XX(S),YY(S)+1:PRINT CHRS(126+S#4); CHRS( 
127+S»4) 


700 LOCATE X,Y:IF S(S,P,YY) AND 2°(7-XX) THEN PRIN 
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T CHRS(232) ELSE PRINT CHR$(233) 

716 IF AS=CHRS(242) THEN X=X-1:1F X=0 THEN X=16 
720 IF AS-CHRS(243) THEN X=X+1:1F X=17 THEN X=1 
730 IF AS=CHRS(248) THEN Y=Y-1:1F Y=@ THEN Y=16 
/40 IF AS=CHR$S(241) THEN Y=Y+1:1IF Y=17 THEN Y=1 
750 LOCATE X,Y:PRINT CHR5(231) 

768 GOTO 688 

ABUURÈM = 2 aise nue ne 

898 REM NUMERO DU CARACTERE 

908 LOCATE 1,25:PRINT CHRS(18); "No CARACTERE "; 
918 INPUT; ""; AS: S=VAL(AS):IF S<1 OR 5216 THEN 900 
928 LOCATE 1,25:PRINT CHRS(18); "CARACTERE No";©; 
938 RETURN ; 
98@ REM ---------------"" 

998 REM DISPOSITION DES CARACTERES 

1888 MODE @ 

1010 GOSUB 1148:EVERY 206,8 GOSUR 1148:EI 

1920 LOCATE 1,25:PRINT "CARACTERE No";S; 

1030 AS=INKEYS:IF AS$="" THEN 1838 

1048 IF AS$="F" THEN EVERY 8,0 GOSUB 1146:D1:G0T0 2 


00 

1658 IF A$="C" THEN DI:GOSUB 98@0:FI:GOT0 183@ 

1868 LOCATE X(S),Y(S):PRINT" ":LOCATE X(S),Y(5)+1 
: PRINT" " 

1070 IF AS=CHR$S(242) THEN X(S)=X(S)-2:1IF X(S)=-1 T 
HEN X(S)=19 

1080 IF AS$=CHR$S(243) THEN X(S)=X(S)+2:1IF X(S)=21 T 
HEN X(S)=1 

1090 IF A$S=CHR$S(248) ITHEN Y(S)=Y(S)-2:IF Y(S)=-1 T 
HEN Y(S)=23 

1100 IF AS=CHRS(241) THEN Y(S)=Y(S)+2:IF Y(S)=25 
HEN Y(S)=1 

1118 LOCATE X(S),Y(S):PRINT CHR$S(124+S#4); CHR$S(125 
+S+4) 

1126 LOCATE X(S),Y(S)+1:PRINT CHR$S(126+S#4); CHR$S(1 
2/7+5S#4) 


1130 GOTO 10838 

11408 FOR 1-16 TO 1 STEP -1 

1158 LOCATE X(I),Y(I):PRINT CHR$S(124+I#4); CHR$S(125 
+I+#4) 

1160 LOCATE X(I),Y(I)+1:PRINT CHR$(126+I#4); CHRS(1 
27+I+#4) 

1178 NEXT I 

1180 RETURN 
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LE PROGRAMME 

Lignes 39 à 129 : initialisation 

Les variables X et Y donnent les coordonnées du point de départ, 
S le numéro du caractère en cours et XX{() et YY{) la position des 
caractères dans le générateur (X{) et Y() pour la disposition). 
Lignes 299 à 339 : dessin du générateur 

Affiche avec une boucle FOR/NEXT le dessin du générateur. Les 
lignes 299 et 309 placent les caractères aux coordonnées XX et YY, 
et la ligne 289 indique leurs numéros. 

Lignes 499 à 479 : affichent un caractère 

Ces lignes affichent sur le générateur le dessin grand format du 
caractère S. 

Lignes 699 à 769 : déplacements 

Cette partie du programme teste le clavier et déplace le curseur sur 
l'écran. Les cases changent de couleur si l'on appuie sur la touche 
COPY. La ligne 669 recalcule immédiatement les valeurs du carac- 
tère pour l'instruction SYMBOL. 


Lignes 999 à 939 : numéro du caractère en cours 


Le programme saisit au clavier le nouveau numéro du caractère. 


Lignes 1399 à 1449 : disposition des caractères 


On déplace sur l'écran le caractère en cours en testant le clavier. 
Les coordonnées des seize objets sont conservées dans les ta- 
bleaux X() et Y{(). 
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LISTE DES VARIABLES : 


A$ dernière touche appuyée 

| indice de boucle FOR/NEXT 

J indice de boucle FOR/NEXT 

P numéro du caractère qui compose un meuble 
(4 au total) 

S numéro du sprite en cours 

S(,,) dessin binaire des caractères 

X et Y coordonnées du curseur 


X{)et Y()} coordonnées des caractères dans le générateur 

XX et YY coordonnées à l'intérieur d'un des caractères qui 
compose un meuble. 

XX() et coordonnées des caractères dans la disposition 

YY() des meubles. 
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CRYPTOGRAMMES 


Si vous aimez les messages secrets, les informations codées, les 
encres sympathiques, bref, si vous êtes un cryptologue averti, vous 
pourrez donner libre cours à votre passion en échangeant des textes 
indécodables.. sauf pour celui qui en connaît la clef ! 


En effet, AMSTRAD vous demande s'il s'agit d'un message à coder 
ou à décoder, puis le mot de passe (la clef du message). Vous devez 
taper un message quelconque, par exemple “IF THEN ELSE" ou 
“DE NORBERT À MARCEL”. Sans cette clef il n’est pas possible de 
décoder un message. 


Yrf xojqcrvozsse ! 
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ELLE) 


10 
c@ 
34 
40 
°0 
b0 
70 
10 
194 
AU 
ete 
ce4 
30 


384 
390 
a0u 
414 
420 
434 
444 


454 
464 
+64 
470 
480 
494 
500 
580 
590 
608 
618 
624 
630 
b4@ 
650 
90 

668 
676 
680 
690 
700 
/10 
720 
730 
740 
758 
7/60 
778 
780 


REM CRYPTUGRAMMES 

REM ------------- 
DIM U(26) 

MODE 1:INK 6,6:INK 1,15:BORDER @ 


INPUT"COUAGE OÙ DECODAGE (C/D) ";RS 
1F RS="D" THEN 408 

IF R$<>"C" THEN 46 

RÉM éme aies das eines 
REM CODAGE 

GUSUB 660 

CLS 

PRINI"MESSAGE CUDE:" 

FOR 1=1 FO LEN(MS) 

IF MIDS(MS,1,1)<"A" OR MIDS(M$,1,1)>"/" THEN 2 


PRINT CHRS(C(ASC(MIDS(MS,[1,1))-64)+64); 
NEXT ! 

IF INKEYS="" THEN 278 

RUN 

REM ------------------------2---- 

REM DECODAGE 

GOSUB 688 

CLS 

PRINT'MESSAGE DECODE:" 


FOR 121 10 LEN(MS) 
IF MIDS(M$,1,1)<"A" OR MID$S(M$,I1,1)>"Z" THEN 4 


FOR J=1 10 26 

IF ASC(MIDS(MS,1,1))-64=C(J) THEN PRINT CHRS(J 
);: GOTO 488 

NEXT J 

NEXT I 

IF INKEYS="" THEN 498 

RUN 

REM ------------------------------- 

REM CREATION CODES 

CLS 

INPUT"'MOI DE PASSE";PS$S 

1F P$="" THEN 686 

D=1 

FOR I=1 TO LEN(P$S) 

IF MIDS(PS,1,1)<"A" OR MIDS(PS,1,1)>"Z" THEN 6 


IF C(ASC(MIDS(PS,1,1))-64)<>0 THEN 698 
C(ASC(MIDS(P$,1,1))-64)=D 
D=D+1 

NEXT I 

FOR I=26 TO 1 STEP -1 

IF C(I)}<>0 THEN 748 
C(I1)=D 

D=D+1 

NEXT I 

CLS 

INPUT'MESSAGE "; MS 

IF MS="" THEN 758 

RETURN 
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LE PROGRAMME 


Lignes 39 à 79 : initialisation 


La ligne 59 saisit le type d'opération à effectuer, codage où déco- 
dage. Les lignes 69 et 79 envoient aux programmes concernés. 


Lignes 299 à 289 : codage 


Après l'appel du sous-programme de saisie du mot de passe, du 
message et de la création du tableau de transcription, on code une 
à une toutes les lettres du message M$ à l'aide d'une boucle FOR/ 
NEXT. Seules les lettres sont réellement codées, les autres signes 
sont ignorés. 


Lignes 499 à 599 : décodage 


Après l'appel du sous-programme de saisie du mot de passe, du 
message et de la création du tableau de transcription, on décode 
une à une toutes les lettres du message MS à l’aide d'une boucle 
FOR/NEXT. 


Lignes 699 à 789 : création des codes 

Dès que le mot de passe est saisi, on place dans le tableau C{) la 
correspondance de chaque lettre (exemple : si C(1)=3, la lettre A 
devient C; si C(26)=5, la lettre Z devient E) en fonction du mot de 


passe P$. 
LISTE DES VARIABLES : 


C{() tableau de transcription 

D nombre de lettres déjà dans le tableau C{) 
I indice de boucle FOR/NEXT 

J indice de boucle FOR/NEXT 

M$ message à coder ou à décoder 

P$ mot de passe 

RS choix de l'utilisateur 
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GESTION DES QSO 


Votre AMSTRAD est aussi radio-amateur (il sait décidément tout 
faire, votre ordinateur !). 


Si vous avez déjà utilisé ce programme, vous ne devez pas ré- 
pondre à la question “Première utilisation” (tapez uniquement sur 
la touche “ENTER"). II affiche alors un menu de six options : 


1 


SAISIE D'UN ORZ : vous devez entrer le ORZ et le QTH d'un 
de vos correspondants. 


Si vous n'avez plus rien à rentrer, appuyez sur “ENTER” à la 
question “QRZ:". 


SAISIE D'UN QS0O : si vous désirez introduire dans le fichier 
un nouveau QSO, entrez le numéro du ORZ correspondant (si 
vous avez oublié ce numéro, utilisez l'option 4 ou 5). Le pro- 
gramme saisit alors la date de la liaison (on peut mettre 4 QSO 
par enregistrement). Vous devez taper “Q" en réponse à la 
question “Numéro du ORZ:" pour revenir au menu. 


SUPPRESSION : en donnant le numéro d'un ORZ, le program- 
me supprime l'enregistrement correspondant dans le fichier. 


RECHERCHE : elle permet d'afficher un enregistrement 
complet à partir du renseignement que vous lui donnez. Par 
exemple le mot “Cachan” pour obtenir tous les Cibistes de 
votre connaissance habitant la ville de Cachan. 


LISTING : édite simplement sur l'écran le fichier dans son in- 
tégralité. 


SAUVEGARDE : le programme sauve le fichier sur cassette. 


NB. : le code Q utilisé est celui couramment employé par les Ci- 
bistes et différent des normes en vigueur. 
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19 REM GESTION DES QSO 
DOUREM En re 7 
30 DIM D$(6,188) 

40 LS$(1)="QRZ":LS(2)="QTH":L$(3)="QSO DU" 
50 MODE 1:INK @,8:INK 1,15:BORDER @ 

68 INPUT"PREMIERE UTILISATION (O/N)";R$ 
70 IF R$="O" THEN 208 

80 CLS:PRINT"METTEZ LE DATACORDER EN LECTURE" 
98 OPENIN "!QSO" 

100 INPUT#9,N 

119 FOR I=1 TO N 

120 FOR J=1 TO 6 

130 LINE INPUT#9,D$(J,1) 

148 NEXT J, i 

158 CLOSEIN 

189 REM ---------sccac 
199 REM MENU 

208 CLS 

218 PRINT'NB DE QRZ:";N:PRINT: PRINT 

220 PRINT"1 SAISIE QRZ" 

238 PRINT"2 SAISIE QS0" 

248 PRINT"3 SUPPRESSION" 

250 PRINT"4 RECHERCHE" 

268 PRINT"S LISTING" 

278 PRINT"6 SAUVEGARDE" 

288 PRINT:PRINT"VOTRE CHOIX ?"; 

298 RS=INKEYS:IF R$="" THEN 298 

300 R=VAL(RS):IF R<i OR R>6 THEN 298 

318 ON R GOTO 400,800,1000,608,1200,1480 
JADE EM ete pause de eaeerene 
390 REM SAISIE QRZ 

400 CLS:PRINT"SAISIE D'UN QRZ":PRINT 

418 IF N=108 THEN PRINT"FICHIER PLEIN";:LINE INPUT 
RS: GOTO 208 

428 N=N+1 

438 FOR I=1 TO 2 

448 PRINT LS(I);":";:LINE INPUT DS(I,N) 

450 IF I=1 AND DS(1,N)="" THEN N=N-1:GOTO 200 

468 NEXT I 

470 GOTO 488 

SH) RM = rcsseucethe-tueesss nee 
599 REM RECHERCHE 

608 CLS:F=8 

618 PRINT'DONNEE A RECHERCHER: ";:LINE INPUT DS:PR 
INT 

620 IF D$="" THEN 208 

638 FOR I=1 TO N 

648 FOR J=1 TO 6 

650 IF INSTR(DS(J,1),DS$S)<>@ THEN 678 

668 NEXT J:GOTO 698 


670 PRINT USING"###";1;:FOR K=1 TO 2:PRINT " ";LEF 
TS(DS(K,I)+" ",18);:NEXT K:PRINT 

688 PRINT TAB(5);:FOR K=3 TO 6:PRINT LEFTS(DS(K,I) 
+" ",8);" ";:NEXT K:PRINT:F=1 


698 NEXT I:PRINT 

706 IF F=0 THEN PRINT'JE N'AI RIEN TROUVE" 
719 IF INKEYS="" THEN 710 ELSE 608 

78Q REM -------------- 
798 REM SAISIE DES QS0 
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—————_"_—…——_—"—“————aUaLn 0 


808 CLS:PRINT"'SAISIE DES QSO":PRINT 
818 INPUT"NUMERO DU QRZ"; NU 

820 IF NU<i OR NU>N THEN 208 

830 FOR 1=3 TO 6 

846 IF DS(I,NU)="" THEN 870 

858 NEXT I 

868 PRINT:PRINT"IL N'Y A PLUS DE PLACE";:LINE INPU 
T A$:GOTO 880 

870 PRINT L$(3);":";:LINE INPUT DS(I, NU) 

888 GOTO 808 

989 REM --------------- 

998 REM SUPPRESSION 

1808 CLS:PRINT" SUPPRESSION": PRINT 

1818 INPUT"NUMERO DU QRZ"; NU 

1820 IF NU<1 OR NU>N THEN 208 

1938 PRINT 

1840 FOR I=1 TO 3 

1050 PRINT I;LS(1);":";DS(1, NU) 

1868 NEXT I:PRINT 

1870 INPUT"VOUS ETES SUR DE SUPPRIMER CE QRZ'";RS 
1080 IF RS<>"O" THEN 1888 

1898 N=N-1 

1199 FOR I=NU TO N 

1110 FOR J=1 TO 6 

1120 DS$(J,I)=D$(J,1+1) 

1130 NEXT J,I 

1148 GOTO 1000 


LRQ BEN Dreams memes 

1198 REM LISTING 

1208 CLS:F=0 

1210 FOR I=1 TO N 

1228 PRINT USING"###";1;:FOR K=1 TO 2:PRINT " ";LE 
FTS(DS(K,1)+" " 10);:NEXT K:PRINT 

1238 PRINT TAB(5);:FOR K=3 TO 6:PRINT LEFTS(DS(K, I 
)+" ",8);" "3: NEXT K:PRINT:F=F+3 


1240 IF F>28 THEN PRINT:PRINT"'APPUYEZ SUR ENTER PO 
UR LA SUITE";:LINE INPUT RS$S:CLS:F-08 


1250 NEXT I 

1268 PRINT: PRINT"APPUYEZ SUR UNE TOUCHE POUR LE ME 
NU ". 

1270 IF INKEYS="" THEN 1270 ELSE 200 

1380 REM ------------------ 


1390 REM SAUVEGARDE 

1488 CLS:PRINT"APPUYEZ SUR ENTER QUAND LE DATACORD 
ER EST PRET POUR L'ENREGISTREMENT" 
1418 LINE INPUT R$ 

14206 OPENOUT "!'QSO" 

1438 PRINT#9,N 

1440 FOR I=1 TO N 

1450 FOR J=1 TO 6 

1460 PRINT#9,D$(J,1) 

1478 NEXT J,I 

1480 CLOSEOUT 

1490 CLS:PRINT"A LA PROCHAINE !" 
1508 END 
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LE PROGRAMME 


Lignes 39 à 159 : initialisation 


On place dans le tableau L${) les libellés des trois données néces- 
saires à l'exploitation du fichier. 


Si ce n'est pas la première utilisation, on lit sur la cassette ou sur 
la disquette le fichier déjà créé antérieurement. 

Lignes 209 à 319 : menu 

Ces lignes ventilent sur le reste du programme suivant le choix de 
l'utilisateur. 

Lignes 499 à 479 : saisie d'un QRZ 

On saisit par une boucle FOR/NEXT le ORZ et le QTH. Si le nom de 
la station est une chaîne vide, on revient au menu (ligne 450). 
Lignes 699 à 719 : recherche 

Le programme demande d'abord la donnée sur laquelle on désire 
effectuer la recherche (variable D$). Puis les lignes 630 à 699 par- 
courent par une boucle FOR/NEXT l'intégralité du fichier, et affi- 
chent les enregistrements où l'on a trouvé la chaîne D$. 

Lignes 890 à 889 : saisie d'un QSO 


Ces lignes saisissent la date d'un QSO dans la limite de quatre. 


Lignes 1909 à 1149 : suppression 

On supprime du fichier l'enregistrement choisi par l'utilisateur (va- 
riable NU). Après l'avoir affiché, le programme demande confir- 
mation. Les lignes 1100 à 1130 décalent le tableau vers le bas. 


Lignes 12909 à 1279 : listing 


On affiche par une boucle FOR/NEXT l'intégralité du fichier. Le 
programme est stoppé par la ligne 1249 dès que l'écran est plein. 
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Lignes 1499 à 1599 : sauvegarde 


Ces lignes sauvent sur cassette le fichier dès qu'une touche a été 
appuyée. 


LISTE DES VARIABLES : 

D$ donnée à rechercher 

D$(,) tableau des données du fichier 

F drapeau. Si F=9, aucun enregistrement n'a été trouvé. 


| indice de boucle FOR/NEXT 


J indice de boucle FOR/NEXT 

K indice de boucle FOR/NEXT 

L$() libellés des données 

N nombre de ORZ dans le fichier 

NU numéro d'enregistrement choisi par l'utilisateur 
R$ choix de l'utilisateur 

R valeur numérique de R$ 





PARIS X 
85/66/84 15/16/84 
BAGNEUX 


MO mb O0 VD OÙ D MD 


APPUYEZ SUR ENTER POUR LA SUITE 

















AMSTRAD EN FAMILLE 223 


GESTION D'UNE CAVE 


Vous désirez un sommelier particulier ? En voici un tout désigné : 
votre AMSTRAD 


Après la rituelle question “Première utilisation”, le programme af- 
fiche un menu pour les options suivantes : 


1 - SAISIE : vous devez entrer tous les renseignements sur un cru 
que vous avez dans votre cave. Les dates “Avant” et “Après” 
correspondent aux deux années (ou à une date complète si 
vous le désirez) entre lesquelles le vin sera le meilleur. 


Si vous ne voulez plus entrer de crus, tapez uniquement sur “ENT- 
ER" à la question “CRU:”. 


2 - MODIFICATION : si vous désirez modifier un cru, entrez son 
numéro (si vous avez oublié ce numéro, utilisez l'option 4 où 
5). 

Le programme vous demande alors le tÿpe de donnée que vous 

voulez modifier. Si vous n'avez plus de modification à ajouter, ta- 

per “0” en réponse à la question “Numéro du cru:”. 


3 - SUPPRESSION : si vous avez malheureusement épuisé toutes 
les bouteilles d'un cru particulier, cette option permet de le 
supprimer du fichier. Comme pour la modification, taper “Q" 
pour revenir au menu. 


4 - RECHERCHE : c'est la partie la plus intéressante du program- 
me. Elle permet d'afficher tous les crus à consommer entre 
deux dates fixes, de connaître toutes les bouteilles de Bor- 
deaux ou de champagne qui vous attendent impatiemment 
dans votre cave ou celles qui vous restent de l’année 76. Il 
n'est pas nécessaire de donner un nom entier : le mot “BEAU” 
suffit à retrouver les crus d'appellation “BEAUjolais” ou les 
bouteilles de St-Emilion Château “BEAUséjour”. 


5 — LISTING : édite simplement sur l'écran le fichier dans son in- 
tégralité. 


6 - SAUVEGARDE : le programme sauve le fichier sur cassette. 
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10 REM GESTION D'UNE CAVE 

DOIRÈM 2-2 -cee ppeme neue dis 

48 DIM DS(6,188) 

50 LS$(1)="CRU":LS$(2)="APPELLATION":L$(3)="MILLESIM 
E":L$(4)="NB DE BOUTEILLES":LS$(5)="MEILLEUR APRES" 
:L$(6)="MEILLEUR AVANT" 

68 MODE 1:INK @,0:INK 1,15:BORDER @ 

70 INPUT"PREMIERE UTILISATION (0/N)";R$ 

88 IF RS$="O" THEN 208 

98 CLS:PRINT"METTEZ LE DATACORDER EN LECTURE" 
180 OPENIN “!CAVE" 

110 INPUT#9,N 

120 FOR I=1 TO N 

138 FOR J=1 TO 6 

140 INPUT#9,D5(J,1) 

150 NEXT J,I 

168 CLOSEIN 

189 REM ---------------______________ 

198 REM MENU 

208 CLS 

218 PRINT'NB DE CRUS:";N: PRINT: PRINT 

220 PRINT"1 SAISIE" 

230 PRINT"2 MODIFICATION" 

248 PRINT"3 SUPPRESSION" 

250 PRINT"4 RECHERCHE" 

268 PRINT"S LISTING" 

278 PRINT"6 SAUVEGARDE" 

288 PRINT:PRINT"VOTRE CHOIX ?"; 

298 RS=INKEYS:IF R$="" THEN 298 

300 R=VAL(RS):IF R<1i OR R>6 THEN 298 

318 ON R GOTO 480,908,1108,688,1300,1500 

380 REM --------------------- 

390 REM SAISIE 

400 CLS:PRINT'SAISIE D'UN CRU":PRINT 

418 IF N=108 THEN PRINT'FICHIER PLEIN";:LINE INPUT 
RS: GOTO 280 

428 N=N+1 

430 FOR I=1 TO 6 

448 PRINT L$(I);":";:LINE INPUT DS(I,N) 

458 IF I=1 AND DS(I,N)="" THEN N=N-1:GOTO 200 
468 NEXT I 

478 GOTO 480 

589 REM ---------- 

598 REM RECHERCHE 

608 CLS:F=08 

619 PRINT"RECHERCHE PAR :" 

628 FOR I=1 TO 6:PRINT I;LS(I):NEXT 

630 PRINT:PRINT"QUEL TYPE DE DONNEE ?":PRINT 
648 RS=INKEYS:IF R$="" THEN 640 

650 R=VAL(RS):IF R<1 OR R>6 THEN 208 

668 IF R<5 THEN 788 

670 INPUT"DATE DEBUT ";DD 


680 INPUT'DATE FIN "; DF 

690 GOTO 7/18 

708 PRINT L$(R);":";:LINE INPUT D$:PRINT 
710 PRINT 


728 FOR I=1 TO N 

730 1F R<5 THEN IF INSTR(DS(R,I),D$)=@ THEN 798 EL 
SE 750 

748 IF VAL(DS( 


R «DD OR VAL(DS(R,1))>DF THEN 798 
758 F=1:PRINT U 

5 

) 


1)) 
ING"### ";1]; 
OC TE 


S 
768 PRINT DS(1,1 
778 PRINT TAB(5);"MILLESIME:";D$(3,1); TAB(20);"NB 


DE B.:"*;,D$(4,I 
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788 


PRINT TAB(9);"APRES:";DS(5,1);TAB(23); "AVANT: " 


:DS(6,1):PRINT 


790 
800 
810 
880 
898 
988 
918 
928 
938 
948 
958 
968 
978 
988 
998 
1880 
1090 
1100 
1110 
1120 
1130 
1140 
1158 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
DE 
13580 
"; DS 
1368 


NEXT I:PRINT 
IF F=0 THEN PRINT'"JE N'AI RIEN TROUVE" 
IF INKEYS$S="" THEN 818 ELSE 608 


BEM arr ure cime erenmme credo 
REM MODIFICATION 


CLS: PRINT"MODIFICATION":PRINT 

INPUT'NUMERO DU CRU"; NU 

IF NU<1 OR NU>N THEN 290 

FOR I=1 TO 6 
PRINT I;L$(I);":";DS(I, NU) 
NEXT I 
PRINT: INPUT"MODIFICATION DU";R 

IF R<i OR R>6 THEN 200 
PRINT L$(R):":";:LINE INPUT DS(R, NU) 
GOTO 908 

REM: essences etennuies 

REM SUPPRESSION 

CLS: PRINT" SUPPRESSION": PRINT 

INPUT"NUMERO DU CRU"; NU 

IF NU<1 OR NU>N THEN 200 

PRINT 

FOR I=1 TO 6 

PRINT I;L$(I);":";DS(I, NU) 

NEXT I:PRINT 

INPUT"VOUS ETES SUR DE SUPPRIMER CE CRU";R$ 
IF R$S<>"O" THEN 11600 

N=N-1 

FOR I=NU TO N 

FOR J=1 TO 6 

D$(J,1)=D$(J,1+1) 

NEXT J,I 

GOTO 1100 

REM -==---"--ssamssonsess 

REM LISTING 

CLS:F=0 

FOR I=1 TO N 

F=F+4: PRINT USING"##4 "il; 

PRINT D$(1,1);" (";:DS(2,1); 

PRINT TAB(5);"MILLESIME:" beta. 1); TAB(26);"NB 
B.:";D5(4,1) 

PRINT TAB(9); "APRES: ";D5(5,1);TAB(23); "AVANT: 
(6,1):PRINT 

IF F>16 THEN PRINT:PRINT"APPUYEZ SUR ENTER PO 


UR LA SUITE";:LINE INPUT R$:CLS:F=0@ 


1370 
1380 
NU "5 
1398 
1480 
1498 
1500 
ER 

1510 
1528 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1680 


NEXT I 
PRINT:PRINT'APPUYEZ SUR UNE TOUCHE POUR LE ME 


IF INKEYS="" THEN 1390 ELSE 200 

REM ---------------------- 
REM SAUVEGARDE 

CLS:PRINT"APPUYEZ SUR ENTER QUAND LE DATACORD 
EST PRET POUR L'ENREGISTREMENT" 

LINE INPUT RS 

OPENOUT "I! CAVE" 

PRINT#9,N 

FOR I=1 TO N 

FOR J=1 TO 6 

PRINT#9,D$(J,1) 

NEXT J,I 

CLOSEOUT 

CLS:PRINT"A LA PROCHAINE BOUTEILLE !" 
END 
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LE PROGRAMME 


Lignes 39 à 169 : initialisation 


On place dans le tableau L${) les libellés des six données néces- 
saires à l'exploitation du fichier. 


Si ce n'est pas la première utilisation, on lit sur la cassette ou sur 
la disquette le fichier déjà créé antérieurement. 

Lignes 299 à 319 : menu 

Ces lignes ventilent sur le reste du programme suivant le choix de 
l'utilisateur. 

Lignes 499 à 479 : saisie d’un cru 

On saisit par une boucle FOR/NEXT les six données du fichier. Si 
aucun cru n'a été entré, on revient au menu (ligne 450). 

Lignes 609 à 819 : recherche 

Le programme demande d'abord sur quel type de donnée on dé- 
sire effectuer la recherche, puis la donnée elle-même (variable D$ 
pour les quatre premières, dates de début DD et de fin DF pour une 
période). 

Les lignes 720 à 790 parcourent par une boucle FOR/NEXT l'inté- 
gralité du fichier, et affichent les enregistrements où l'on a trouvé 
la chaîne D$ ou comprise entre les deux dates DD et DF. 


Lignes 999 à 999 : modification 


Ces lignes modifient l'enregistrement choisi par l'utilisateur (Varia- 
ble NU). 


Lignes 1199 à 1249 : suppression 
On supprime du fichier l'enregistrement choisi par l'utilisateur (va- 


riable NÜ). Après l'avoir affiché, le programme demande confir- 
mation. Les lignes 1200 à 1230 décalent le tableau vers le bas. 
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Lignes 1399 à 1399 : listing 

On affiche par une boucle FOR/NEXT l'intégralité du fichier. Le 
programme est stoppé par la ligne 1360 dès que l'écran est plein. 
Lignes 1599 à 1699 : sauvegarde 

Ces lignes sauvent sur cassette le fichier dès qu'une touche a été 


appuyée. 


LISTE DES VARIABLES : 


DS donnée à rechercher 

D$(,) tableau des données du fichier 

DD date de début des recherches 

DF date de fin des recherches 

F drapeau. Si F=9, aucun enregistrement n'a été trouvé. 
| indice de boucle FOR/NEXT 

J indice de boucle FOR/NEXT 

L$() libellés des données 

N nombre d'opérations dans le fichier 

NU numéro d'enregistrement choisi par l'utilisateur 
RS choix de l'utilisateur 

R valeur numérique de R$ 
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REPERTOIRE TELEPHONIQUE 


Pourquoi ne pas simplifier votre annuaire et vous réserver quelques 
numéros de téléphone ? 


Ce fichier vous permettra de garder les numéros d’une quarantaine 
de personnes. 


Le programme affiche un menu de trois options : 


1 - SAISIE : avant de saisir un nom et un numéro de téléphone, 
AMSTRAD affiche sur l'écran la totalité du fichier. Vous devez 
donner en priorité un numéro de libre pour une nouvelle saisie 
ou le numéro d'enregistrement que vous désirez modifier. || 
faut répondre “O" à la question “Numéro:” pour revenir au 
menu. 


2 - RECHERCHE : dès que vous aurez donné le nom à rechercher, 
cette option affiche l'intégralité du fichier et s'arrête après un 
bip sonore sur les noms correspondants. || n’est pas néces- 
saire de donner un nom en entier. Ceci permet de retrouver 
toutes les personnes d'une même famille. 


3 —- SAUVEGARDE : sauve le fichier sur cassette. 
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AGENDA TELEPHONIQUE 
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10 

24 

30 

48 

58 

68 

70 

80 

98 

180 
118 
128 
188 
198 
288 
218 
228 
238 
248 
258 
268 
280 
298 
300 
318 
320 
330 
340 
U); 
350 
360 
370 
380 
398 
488 
498 
500 
510 
528 
530 
580 
594 
688 
R 

618 
628 
630 
648 
650 
668 
678 
688 
780 
798 
808 
818 
828 
830 
848 
S(I 
858 
D 1 
868 
87/70 
888 
89e 


REM REPFRTOIRE TELFPHONIQUE 
REM ------ 
DIM N$(48),T5(48) 
MODE 1:INK @,8:INK 1,15:PAPER @:PEN 1:BORDER @ 
INPUT'PREMIERE UTILISATION (O/N)";RS 
IF R$="O" THEN 208 
CLS:PRINT"METTEZ LE DATACORDER EN LECTURE" 
OPENIN "TEL" 
FOR I=1 TO 48 
INPUT#9,NS(I),T$(1) 
NEXT I 
CLOSEIN 
REM Essence esetisessus 
REM MENU 
CLS 
PRINT"1 SAISIE PERSONNE" 
PRINT"2 RECHERCHE" 
PRINT"3 SAUVEGARGE" 
INPUT"VOTRE CHOIX"; V 
IF V<i OR V>3 THEN 200 
ON V GOTO 300,508,608 
REM 2222 ects Le Ste. 
REM SAISIE 
GOSUB 808 
LOCATE 1,22 
INPUT "NUMERO " ; NUS : NU=VAL (NUS) 
IF NU=8 THEN 200 
LOCATE 1,22:PRINT STRINGS(35,32);CHR$S(13); NS(N 
"_ ;"; TS(NU) 
INPUT"NOM"; NS 
IF NS<>"" THEN NS(NU)=NS 
INPUT"TELEPHONE";TS 
IF T$<>"" THEN TS(NU)=TS 
GOTO 300 
CI SRE 
REM RECHERCHE 
CLS 
INPUT"NOM A RECHERCHER"; NRS 
GOSUB 808 
GOTO 288 
REM E=-=t2nss eme con rer 
REM SAUVEGARDE 
CLS:PRINT"APPUYEZ SUR ENTER QUAND LE DATACORDE 
EST PRET POUR L'ENREGISTREMENT" 
LINE INPUT R$ 
OPENOUT "ITEL" 


FOR I=1 TO 40 

PRINT#9,N$S(I);",";TS$(I) 

NEXT I 

CLOSEOUT 

CLS:PRINT"A LA PROCHAINE FOIS !" 

END 

REM ------------------------------- 

REM AFFICHE LES NOMS 

CLS:X=1:Y=1 

FOR I=-1 TO 48 

LOCATE X,Y 

IF N$S(I)="" THEN PRINT I:GOTO 868 

IF V=1 THEN PRINT I;LEFTS(NS(I),6);" ";LEFTS(T 
),18) ELSE PRINT I;N$S(I);" :"; T$S(I) 

IF V=2 AND LEFTS(NS(I),LEN(NRS))=NRS THEN SOUN 


,340,2:WHILE INKEYS$="":WEND 


Y=Y+1:IF Y=21 AND V=1 THEN Y=1:X=21 

IF Y=21 THEN WHILE INKEYS="":WEND:CLS:Y=1 
NEXT I 

RETURN 
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LE PROGRAMME 


Lignes 39 à 129 : initialisation 

Les tableaux NS$() et T$() correspondent aux noms et numéros de 
téléphone du fichier. Si vous trouvez que ce n'est pas assez, il est 
possible de modifier leurs indices maximum (ici 40), par une autre 
valeur supérieure. Il faut pour cela modifier les chiffres 40 aux lignes 
30, 90, 630 et 810. 

Si ce n'est pas la première utilisation, on lit sur la cassette le fichier 
déjà créé antérieurement. 

Lignes 299 à 269 : menu 

Ces lignes ventilent sur le reste du programme suivant le choix de 
l'utilisateur (variable V). 

Lignes 300 à 399 : saisie 

On fait d'abord appel au sous-programme en 800 (affiche les noms). 
Puis le programme demande le numéro que l'on veut créer ou 
modifier. Si on répond 0, la ligne 330 renvoie au menu. Dans le cas 
contraire, les lignes 350 et 370 saisissent le nom et le numéro de 
téléphone. 

Lignes 599 à 539 : recherches 

Le programme place dans NR$ le nom que l'on veut rechercher. Le 
sous-programme en 800 affiche alors tous les noms correspon- 
dants. 


Lignes 699 à 689: sauvegarde 


Ces lignes sauvent sur cassette le fichier dès qu'une touche a été 
appuyée. 
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Lignes 899 à 899 : affichent les noms 


Ce sous-programme affiche tous les noms et numéros de télé- 
phone du fichier pour la création (V=1), ou uniquement ceux 
commençant par la chaîne de caractères NRS pour la recherche 


(V=2). 

LISTE DES VARIABLES : 

I indice de boucle FOR/NEXT 

NU numéro d'enregistrement dans le fichier (numérique) 
NS dernier nom saisi 

N$() liste des noms 

NRS$ nom à rechercher 

NUS numéro d'enregistrement dans le fichier 

R$ réponse de l'utilisateur 

T$ dernier numéro de téléphone saisi 

T$() liste des numéros de téléphone 

V choix de l'utilisateur 

X et Y coordonnées sur l'écran du prochain nom à afficher 
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CONSEILS DE LECTURE 


Pour approfondir vos connaissances en BASIC, et mieux connaître 
le système des CPC 464, 664 et 6128, ainsi que du PCW 8256, P.S.I. 
vous propose une palette d'ouvrages utiles. 


POUR JOUER AVEC OU CONTRE VOTRE AMSTRAD 











Super jeux Amstrad, par Jean-François Sehan (Editions du 
PSiLI: 

50 programmes BASIC sont ici abondamment commentés et to- 
talement ouverts à toute modification et adaptation. Le niveau 
de programmation est supérieur à celui du « 102 programmes ». 














102 programmes pour Amstrad, par Jacques Deconchat (Edi- 
tions du P.S.I.) : 

Pour débutant en BASIC, voici de nombreux programmes de jeu 
qui vous permettront, niveau par niveau, de maîtriser le BASIC 
de votre Amstrad. 





POUR MAIÏTRISER LE BASIC AMSTRAD 











BASIC Amstrad - 1. Méthodes pratiques, par Jacques Boisgon- 
tier et Bruno Césard (Editions du P.S.I.) : 

Pour ceux qui connaissent déjà un BASIC, voici un bon ouvrage 
de perfectionnement à la programmation en BASIC sur Amstrad 
464, 664 et 6128. 














BASIC Amstrad - 2. Programmes et fichiers, par Jacques Bois- 
gontier (Editions du P.S.I.) : 

Pour pratiquer le BASIC Amstrad, cet ouvrage donne de nom- 
breux programmes de gestion, d'éducation et de jeu où le rôle 
des fichiers est expliqué et largement commenté. 

















BASIC plus 80 routines sur Amstrad, par Michel Martin (Editions 
du P.S.i.): 

Pour pousser votre Amstrad au maximum de ses capacités : 80 
routines de simulation d'instructions qui n'existent pas en BA- 
SIC Amstrad. 
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POUR MIEUX CONNAITRE LE SYSTEME DES CPC ET DU PCW 8256 











Clefs pour Amstrad 1 - Système de base, par Daniel Martin (Edi- 
tions du P.S.I.) : 

Mémento présentant synthétiquement le jeu d'instructions du 
Z80, les points d'entrée des routines système, les connecteurs 
et brochages, etc. Le livre de chevet du programmeur sur 
Amstrad. 





D Clefs pour Amstrad 2 - Système disque, par Daniel Martin et 
Philippe Jadoul (Editions du P.S.I.) : 
Ce deuxième tome consacré au système disque présente les 
points d'entrée des routines disque, les blocs de contrôle, la pro- 
grammation et les brochages des circuits spécialisés... La 
deuxième partie du livre est aussi destinée aux possesseurs 
d'Amstrad 8256. 


0 CP/M plus sur Amstrad, par Yvon Dargery (Editions du P.S.l.) : 
Toutes les commandes CP/M et CP/M plus pour maîtriser le 
système des 6128 et 8256 : un ouvrage de référence illustré par 
de nombreux programmes. 


0 Le livre de l'Amstrad, tome 1, par Daniel Martin et Philippe Ja- 
doul (BCM - diffusé par P.S.I.) : 
Ce livre, destiné aux programmeurs des CPC 464 et 664, donne 
une étude complète de tous les circuits internes, et analyse la 
structure interne du BASIC. Vous trouverez, en outre, une étude 
complète des RSX, et des programmes de scrolling, de traçage 
de rectangles, de coloriage de surface et de manipulation vec- 
torielle. 


POUR ETRE INFORME REGULIEREMENT 
DE L'ACTUALITE DES MICROS AMSTRAD 











MICROSTRAD, revue bimestrielle du Groupe Tests. 

Pour exploiter au mieux les capacités de votre micro, vous trou- 
verez au sommaire de chaque numéro un rendez-vous avec les 
rubriques clés : 





— DECOUVREZ.. LA FACE CACHEE DE VOTRE CPC : astuces, 
idées, conseils, tout pour comprendre votre micro, son ana- 
tomie, son fonctionnement, sa programmation et exploiter ses 
capacités graphiques et sonores. 
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— DOMPTEZ.. VOTRE CPC 464, 664, 6128 ou PCW 6256 : pas- 
sionnés, petits ou grands, spécialistes ou débutants, une in- 
formation pratique et la compétence d'experts au service de 
votre micro. 


— PROGRAMMEZ.. VOTRE MICRO AMSTRAD : dans chaque 
numéro de MICROSTRAD, un cocktail de programmes (des- 
sins, jeux, utilitaires, gestion, etc.) et des trucs de program- 
mation. 
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L € Achevé d'imprimer par l'imprimerie Tardy Quercy S.A. à Bourges 
D. L. : Février 1986 - N° d'Imprimeur : 12744 - N° d'Édition : 86595-240-3 











— 
Votre avis nous intéresse 


- Pour nous permettre de faire de meilleurs livres, adressez-nous vos critiques sur le présent livre. 
- Si vous souhaitez des éclaircissements techniques, écrivez-nous, nous adresserons votre demande 
à l'auteur qui ne manquera pas de vous répondre directement. 


- Ce livre vous donne-t-il toute satisfaction? 

















- Ÿ a-t-il un aspect du problème que vous auriez aime voir abordé? 




















Comment avez-vous eu connaissance de ce livre? 




















[] publicité [] cadeau 

[] catalogue C] librairie 

[] boutique micro ] exposition 
autres 











Avez-vous déjà acquis des livres PSI? 
lesquels 2 2 2e 2 0 à =: 





qu'en pensez-vous?" 








Nom = _____ Prénom Age 
Adresse _ … 
Profession #2 

Centre d'intérêt 2 
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CATALOGUE GRATUIT 


Vous pouvez obtenir un catalogue complet des ouvrages PSI, sur simple demande, où en retournant 
cette page remplie à votre libraire, à votre boutique micro où aux 


Editions du PSI 
BP 86 
77402 Lagny-sur-Marne Cedex 


_ 
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